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I.  INTRODUCTION 

A.      SOFTWARE  REUSE 

1.  What  Is  Software  Reuse 

Software  reuse  is  using  the  elements  of  an  existing  system  in  the  construction  of 
another  similar  system. 

In  general,  software  reuse  includes  all  the  products  of  software  development 
cycle.  Software  documentation,  requirements,  analyses,  designs,  source  codes  etc.  can  all 
be  reused  in  this  broad  view. 

Reuse  of  software  is  an  important  issue  in  software  engineering  because 
developers  benefit  in  both  productivity  and  accuracy  by  reusing  software  entities  from  all 
phases  of  system  development. 

2.  Why  Reuse 

Much  has  been  written  about  the  software  crisis  in  recent  years.  It  was  stated  that 
software  is  too  costly,  insufficient  quality  and  its  development  is  nearly  impossible  to 
manage  [Cox90].  Software  reuse  may  reduce  the  pressure  of  the  software  crisis. 

A  great  percentage  of  a  typical  program  is  composed  of  potentially  reusable  code. 
It  is  desirable  to  make  use  of  existing  code  wherever  possible  since  this  can  have  a 
significant  impact  on  both  the  cost  and  duration  of  software  development. 

Automating  the  reusability  of  code  will  help  to  eliminate  the,  now  infamous, 
software  backlogs  [Bass87].  Furthermore,  design  analysis  can  focus  on  meeting  and 
matching  user  requirements  rather  than  verifying  internal  inconsistencies,  especially  in 
large  projects. 

It  was  reported  that  90%  of  the  cost  of  maintenance  can  be  reduced  by  software 
reuse,  another  report  described  that  the  cost  of  software  maintenance  is  usually  about  75% 
of  the  total  cost  of  the  whole  life-cycle  of  software.  Other  studies  show  that  40%  of  a  design 
and  75%  of  the  code  on  a  given  project  is  reused  [KL91]. 


As  can  be  seen,  reuse  can  significantly  reduce  the  cost  of  development  and 
maintenance.  Other  than  cost,  software  reuse  may  help  improve  the  quality  of  the  software. 
Frequent  reuse  of  a  software  component  may  lead  to  frequent  evaluation  and  revisement. 
Therefore,  high  quality  components  may  be  constructed  through  the  reuse  process. 

Reusing  the  software  also  saves  time  in  all  stages  of  the  life  cycle,  makes  learning 
new  systems  easier,  improves  readability  and  robustness,  and  leads  to  more  modular, 
rational  designs. 

3.     How  To  Reuse 

While  software  reuse  appears  to  be  very  beneficial  it  has  not  been  widely  used.  It 
is  only  recently  that  emphasis  is  given  to  develop  software  systems  that  utilizes  reusability. 
Software  reuse  brings  many  research  questions  into  the  open.  The  arguments 
focus  on  the  question  that  what  the  candidates  are  for  software  reuse,  how  reusable  software 
components  should  be  stored,  how  we  can  locate  reusable  software  components,  and  how 
we  can  incorporate  reusable  software  components  into  our  own  software  system  [YT88]. 

The  candidates  for  software  reuse  brings  the  classification  of  software  reuse.  One 
example  classification  schema  is  reuse- in-the- small  and  reuse-in-the-large  [KL91].  Reuse- 
in-the-small  is  concerned  with  the  reuse  of  (small)  pieces  of  source  code  such  as  classes, 
subroutines,  (Ada)  packages  and  so  on.  Reuse-in-the-large  is  concerned  both  with  the  reuse 
of  large-grain  components  such  as  subsystems,  and  the  reuse  of  elements  beyond  source 
code  such  as  design  structure,  design  decision,  domain  knowledge,  analysis  information 
and  so  forth. 

This  thesis  will  address  only  the  source  code  reuse  schemes. 

Many  kinds  of  mechanisms  have  been  thought  for  the  storage,  retrieval  and 
incorporation  of  components  into  the  software.  One  of  the  earlier  methods  is  cut  and  paste 
mechanism  from  component  libraries  [FH87].  The  reusable  components  were  stored  in 
reference  libraries  and  retrieved  by  various  browsing  mechanisms.  Once  the  component  is 


found,  the  user  should  copy  and  paste  the  component  information  into  his/her  program, 
sometimes  through  the  templates  that  was  provided  for  this  purpose. 

An  alternative  view  is  that  reuse  is  part  of  a  development  process  [Luba88]. 
Methods  that  deal  with  reuse  should  be  embedded  within  methodologies  that  support 
development,  and  environments  to  support  reuse  should  be  extensions  of  environments  to 
support  the  developmental  methodologies.  This  means  that  support  for  reuse  must  be  an 
option  supported  and  integrated  into  the  standard  mode  of  operation  of  the  tool.  The  tool 
should  support  the  storage,  retrieval,  and  incorporation  of  reusable  software  with  the  new 
developed  ones. 

The  difficulties  and  issues  that  arises  to  realize  such  a  system  can  be  summarized 

as  follows: 

•  The  amount  of  software  is  large  and  growing.  This  makes  the  search  of 
software  components  difficult. 

•  Standards  for  writing  and  documenting  software  are  not  used  or  are 
incompatible  from  project  to  project. 

•  Systems  are  not  designed  for  reusability. 

•  Various  systems  exist  in  many  different  programming  languages  and  their 
incompatibilities  pose  a  barrier  for  reusability. 

•  Software  under  development  generally  requires  modification  of  reusable 
component,  most  intimate  analysis  of  retrieved  and  developed  component  is 
necessary. 

Therefore,  we  may  conclude  that  realization  of  software  reuse  will  require: 

•  Standards  for  specification,  coding  and  testing  that  supports  reusability. 

•  A  model  for  reusable  components  that  represents  the  features  related  to 
reusability. 

•  A  design  methodology  such  that  reuse  should  be  a  continuing  aspect  of 
software  development,  embedded  within  the  tool  as  an  integral  part  of  the 
methodology,  rather  than  a  separate  option. 

•  An  efficient  and  fast  location,  retrieval  method  from  the  software  base.  This 
should  be  a  tool  managing  the  database  of  component  descriptions. 


•  Incorporation  of  the  components  ensuring  that  the  combined  components  are 
fully  semantic  and  context  compatible  with  the  program  they  are  used  in. 
Computer  Aided  Prototyping  System  (CAPS)  is  designed  to  realize  all  these 
aspects.  The  requirement  for  the  necessary  standards  for  specification  and  representation  is 
achieved  through  the  use  of  Prototype  System  Description  Language  (PSDL).  A  software 
base  equipped  with  an  efficient  search  and  retrieval  mechanism  is  an  embedded  tool  in 
CAPS.  The  retrieved  components  are  incorporated  into  the  prototyped  system  ensuring  the 
fully  semantic  and  context  compatibility. 

B.      RAPID  PROTOTYPING 

The  demand  for  large,  high  quality  systems  has  increased  to  the  point  where  a  jump  in 
software  technology  is  needed.  Rapid  prototyping  is  one  of  the  most  promising  approaches 
to  this  problem  [BL88]. 

A  prototype  is  an  executable  model  of  the  proposed  system.  The  prototype  tries  to 
realize  the  requirements  such  that  the  behavior  of  the  proposed  system  is  observable.  This 
provides  continuous  modification  of  requirements  as  customers  can  visualize  and  test  them 
throughout  the  development. 

More  than  half  of  the  total  software  cost  originates  from  the  changes  made  on  software 
system,  called  maintenance  phase  in  traditional  software  life  cycle.  Moreover, 
requirements  errors  are  the  most  expensive  errors  to  recover  as  major  changes  should  be 
made  on  the  system.  Requirements  are  difficult  to  construct  and  validate  because  usually 
there  is  no  single  person  who  understands  all  of  the  constraints  of  proposed  system.  This  is 
especially  evident  in  large  systems  with  hard  real-time  constraints,  since  the  requirements 
for  such  systems  are  generally  very  difficult  to  understand  or  describe  [Luqi88].  The 
communication  problems  between  people  with  different  areas  of  expertise  worsens  the 
situation. 

Prototyping  helps  reduce  maintenance  costs  primarily  by  reducing  requirement  errors. 
As  prototyping  allows  extensive  testing  of  a  system,  it  also  reduces  the  implementation 
errors. 


Prototyping  life  cycle  is  in  figure  1.1.  The  requirements  are  specified  repeatedly  by 
evaluating  the  executable  prototypes  and  negotiating  with  the  customer.  The  prototype  is 
constructed  based  on  the  initial  requirements.  This  prototype  is  a  partial  representation  of 
the  system  which  is  used  to  analyze  and  design  the  system.  Then,  the  designer  examines  the 
execution  of  the  prototype  together  with  the  customer  to  compare  the  actual  behavior  of  the 
prototype  with  the  expected  behavior.  The  feedback  from  the  customer  is  used  to  adjust  the 
requirements  and  to  modify  the  prototype  accordingly. 

The  repeated  process  of  user  validation  and  prototype  construction  continues  until  the 
prototype  successfully  meets  all  the  aspects  of  the  envisioned  system.  After  that,  the 
designer  uses  the  validated  requirements  as  a  basis  for  the  design  of  the  production 
software. 
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Figure  1.1  -  Prototyping  life  cycle 


The  process  of  creating  and  modifying  prototypes  must  be  rapid  enough  for 
prototyping  to  be  an  efficient  methodology. 

We  need  software  tools  to  make  rapid  prototyping  practical.  Reusing  existing  system 
components  appears  to  be  the  most  economical  approach  for  constructing  prototypes. 


These  reusable  components  should  also  have  sufficient  quality  to  obtain  the  necessary 
performance  from  the  final  system. 

The  method  used  for  rapid  prototyping  should  be  supported  by  a  clear,  simple,  and 
expressive  computational  model  that  is  also  supported  by  a  matching  language  and 
automated  prototyping  environment.  The  same  language  must  be  used  for  prototype  design 
and  for  software  base  retrievals  to  gain  the  benefits  of  reusable  software  components. 

This  model  and  language,  namely  CAPS  and  PSDL,  are  briefly  described  in  the 
following  two  sections. 

C.     THE  COMPUTER  AIDED  PROTOTYPING  SYSTEM  (CAPS) 

The  Computer  Aided  Prototyping  System  (CAPS)  is  an  integrated  environment  aimed 
at  rapidly  prototyping  hard  real-time  embedded  systems  [LK88,  Luqi91].  CAPS  software 
tools  includes  an  execution  support  system,  a  syntax  directed  editor  with  graphic 
capabilities,  a  software  base  and  an  engineering  database  management  system.  Figure  2.2 
shows  the  structure  of  CAPS. 

CAPS  provides  a  systematic  design  method  for  rapid  prototype  construction.  CAPS 
prototypes  a  system  through  translation  of  the  high  level  specification  language 
Prototyping  System  Description  Language  (PSDL)  [BLY88]  into  Ada  code  by  making  use 
of  the  stored  reusable  components.  To  generate  a  prototype,  the  designer  of  the  prototype 
uses  the  graphic  editor  to  create  a  graphic  representation  of  the  proposed  system.  This 
graphic  representation  is  used  to  generate  part  of  an  executable  description  of  the  proposed 
system,  represented  in  PSDL.  PSDL  specification  will  be  used  to  perform  an  automated 
search  of  the  component  library  for  preexisting  candidate  implementations.  An  integration 
and  transformation  schema  will  then  be  used  to  transform  the  PSDL  specification  into  the 
implementation  language  code  that  connects  the  retrieved  reusable  components.  The 
prototype  is  then  compiled  and  executed.  The  user  evaluates  the  prototype  against  the 


expected  behavior  of  the  proposed  system.  Repetitions  of  this  process  should  yield  a  system 
that  satisfies  the  requirements. 
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Figure  2.2  -  Structure  of  CAPS 
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D.      THE  PROTOTYPE  SYSTEM  DESCRIPTION  LANGUAGE  (PSDL) 

A  powerful,  easy  to  use,  and  portable  prototype  description  language  is  a  critical  part 
of  an  automated  rapid  prototyping  environment.  Such  a  language  is  needed  before  the  tools 
in  the  environment  can  be  built. 

PSDL  [BLY88,  BL88]  is  the  specification  language  used  in  CAPS.  It  serves  as  an 
executable  prototyping  language  at  a  specification  or  design  level  and  has  special  features 
for  real-time  system  design.  PSDL  has  facilities  for  recording  and  enforcing  timing 


constraints,  and  for  modeling  the  control  aspects  of  real-time  systems  using  nonprocedural 
control  constraints,  operator  abstractions,  and  data  abstractions.  It  is  especially  well  suited 
for  large  real-time  systems,  and  is  useful  for  prototyping  typical  Ada  applications.  Ada  is 
convenient  for  implementing  PSDL  because  the  mechanisms  of  Ada  support  the  features 
of  PSDL.  Therefore,  PSDL  can  easily  interface  to  reusable  Ada  components  as  PSDL 
execution  support  system  is  also  in  Ada.  PSDL  is  used  to  describe  the  connections  between 
the  components  of  a  prototype,  and  to  specify  the  behavior  of  the  reusable  components  in 
the  prototype  as  well  as  those  in  the  software  base. 

PSDL  provides  two  kinds  of  building  blocks  for  prototypes:  abstract  data  types  and 
operators.  Software  systems  are  modeled  as  networks  of  operators  communicating  via  data 
streams.  The  PSDL  data  types  include  built-in  types  of  Ada,  user  defined  abstract  types,  the 
special  types  time  and  exception,  and  the  types  that  can  be  built  using  the  type  constructors 
of  PSDL. 

PSDL  operators  have  two  major  parts:  the  specification  and  implementation.  The 
specification  part  contains  attributes  describing  the  form  of  the  interface,  the  timing 
characteristics,  and  both  formal  and  informal  descriptions  of  the  observable  behavior  of  the 
operator.  Specification  may  optionally  include  inputs,  outputs,  exceptions,  generic 
parameters,  states  and  timing  information.  These  interface  characteristics  are  defined  by  the 
software  engineer  during  the  design  process  to  specify  the  operator  and  form  the  basis  for 
retrievals  from  a  reusable  component  library  or  software  base. 

The  implementation  part  determines  if  the  operator  is  atomic  or  composite.  Atomic 
operators  have  an  implementation  keyword  specifying  the  underlying  programming 
language,  followed  by  the  name  of  the  implementation  module  implementing  the  operator. 
This  name  is  supplied  either  as  a  result  of  a  successful  retrieval  from  the  software  base  or 
is  supplied  by  designer.  Composite  operators  have  the  attributes  communication  graph, 
internal  data,  control  constraints,  and  informal  description. 


E.  OBJECTIVES 

The  major  purpose  of  this  thesis  is  to  provide  tools  to  facilitate  the  practice  of  software 
reuse  within  the  Computer  Aided  Prototyping  System  (CAPS). 

Currently,  a  software  base  provides  prototype  designers  with  the  means  to  retrieve 
components.  Reusable  components  are  retrieved  from  the  software  base  using  a  formal 
specification  as  the  search  key  or  through  a  browser.  The  specification  language  used  is  the 
Prototype  System  Description  Language  (PSDL).  The  software  base  stores  the  reusable 
components  in  an  object  oriented  database  management  system  (ONTOS)  with  an 
appropriate  PSDL  specification. 

The  study  conducted  in  this  thesis  was  aimed  at  achieving  three  major  goals:  (1)  to 
modify  the  software  base  to  allow  the  integration  of  the  retrieved  components  into  new 
applications;  (2)  to  transform  and  integrate  the  chosen  retrieved  components  to  the  system 
under  development;  (3)  to  design  and  develop  a  graphical  user  interface  (implemented  by 
using  TAE  Plus)  for  manipulating  available  software  base  operations,  including  the 
storage,  retrieval,  and  integration  of  the  components. 

F.  ORGANIZATION  OF  THE  THESIS 

Chapter  II  provides  a  brief  background  on  information  retrieval  methodology  and 
gives  an  overview  of  the  current  retrieval  systems  and  tools.  Chapter  III  describes  the 
structure  of  the  CAPS  software  base.  Chapter  IV  discusses  the  integration  of  reusable 
components  into  new  applications  and  provides  the  design  methodology.  Chapter  V 
describes  the  design  and  implementation  of  software  base  graphical  user  interface.  Chapter 
VI  is  the  conclusions  and  recommendations  for  further  research. 


II.  BACKGROUND  AND  PREVIOUS  RESEARCH 

This  chapter  describes  some  technical  background  concerning  reusable  software 
components  and  their  retrieval,  and  reviews  previous  and  current  systems  that  implement 
various  methodologies  to  achieve  this  purpose. 

A.     INFORMATION  RETRIEVAL 

The  problem  of  retrieving  reusable  software  components  from  a  library  is  in  general 
an  information  retrieval  problem  [Stei91].  The  important  concepts  from  information 
retrieval  that  relate  to  reusable  component  retrieval  are  representation,  search,  and 
measures  of  performance. 

Representation  is  the  way  the  object  sought  is  structured  to  facilitate  retrieval.  For 
example  a  list  of  keywords  may  be  provided  for  the  future  retrieval  of  a  certain  component. 
The  method  of  representation  must  support  the  method  used  to  search  for  the  object  A  lot 
of  research  has  been  conducted  for  search  mechanisms,  especially  in  the  areas  of  artificial 
intelligence  and  database  management  systems.  The  method  of  representation  and  the 
method  of  search  work  together  to  form  a  cohesive  environment  for  information  retrieval. 
The  more  refined  and  precise  the  method  of  representation,  the  easier  the  search  mechanism 
becomes.  Various  representation  and  search  mechanisms  will  be  described  in  the  following 
section. 

The  two  most  important  measures  of  performance  are  precision  and  recall  [SM83]. 
Precision  is  the  ratio  between  the  number  of  relevant  components  retrieved  and  the  total 
number  retrieved.  It  is  the  answer  to  the  question,  "What  percentage  of  the  retrieved 
components  are  relevant?"  Recall  is  the  ratio  between  the  number  of  relevant  components 
retrieved  and  the  number  of  relevant  components  in  the  database.  It  is  the  answer  to  the 
question,  "What  percentage  of  the  relevant  components  on  the  database  did  my  query 
find?"  Precision  and  recall  obtain  ideal  values  when  the  set  of  components  retrieved  is 
exactly  the  same  as  the  set  of  components  that  are  relevant. 
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B.      METHODS  FOR  RETRIEVING  REUSABLE  COMPONENTS 

Almost  all  of  the  tools  developed  for  retrieving  reusable  components  use  one  or  more 
of  three  different  approaches  for  retrieval;  browsers,  informal  specifications,  or  formal 
specifications.  The  fundamentals  of  each  approach  will  be  described  in  this  section  and  then 
some  existing  tools  using  these  methods  will  be  reviewed  in  section  II. C. 

1.     Browsers 

A  browser  is  a  general  purpose,  usually  window-based  tool  for  looking  through 
collections,  categories,  or  hierarchies  of  components  at  various  levels  of  abstraction 
[Meye88].  The  objective  is  to  allow  the  system  user  to  manually  search  for  the  desired 
component. 

The  advantage  of  a  browser  is  that  the  user  is  given  complete  control  over  the 
entire  collection  of  components.  This  is  especially  useful  if  the  user  is  familiar  with  the 
content  of  the  software  collection  and  already  knows  the  components  being  searched. 

The  first  disadvantage  is  that  the  method  is  basically  manual,  and  the  user  should 
browse  through  the  whole  set  of  components  to  find  the  one  that  is  desired.  This  also  means 
a  very  low  precision. 

Second,  it  requires  the  user's  knowledge  of  the  structure  of  the  component 
collection.  Another  issue  related  to  this  problem  is  that  the  search  may  be  local,  causing  the 
failure  or  inefficiency  of  the  retrieval;  that  is,  if  a  suitable  component  is  defined  elsewhere 
in  the  system,  it  is  not  going  to  be  found  if  user  doesn't  know  to  look  at  there. 

Third,  unless  retrieved  component  is  equipped  with  proper  documentation,  the 
user  should  look  into  the  source  code  to  determine  if  the  component  satisfy  the 
requirements.  Another  related  issue  is  that  if  the  user  has  not  found  the  exactly  matching 
component  for  the  needs,  there  will  be  no  clear  termination  point  for  search. 

Fourth,  if  the  size  of  the  software  base  is  large,  this  method  will  be  unacceptably 
insufficient  and  time  consuming. 
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2.     Informal  Specifications 

Retrieval  techniques  based  on  informal  specifications  require  the  user  to  describe 
or  list  some  of  the  attributes  of  the  component  being  looked  for.  Informal  specification 
methods  include  keyword  search,  multi-attribute  search,  and  natural  language  interfaces. 

a.  Keyword  Search 

Keyword  search  mechanisms  require  the  user  to  specify  a  list  of  words 
relevant  to  the  object  being  sought.  Keywords  can  be  drawn  from  a  known  system 
vocabulary  (controlled  vocabulary),  or  they  can  be  unconstrained  (uncontrolled 
vocabulary).  In  the  case  of  unconstrained  keywords,  synonym  tables  are  often  used  to  find 
more  standard  words  on  which  to  perform  the  query  [SM83]. 

The  advantages  of  this  approach  are  easy  implementation  and  its  conceptual 
simplicity  for  the  user.  These  aspects  make  it  a  very  commonly  used  technique. 

One  disadvantage  of  this  approach  is  precision  and  recall  of  the  system 
depend  on  the  number  of  the  keywords  used.  A  lower  number  of  keywords,  for  example, 
one,  results  in  high  recall  and  low  precision  as  a  large  number  of  components  will  be 
retrieved;  whereas  too  many  keywords  will  have  the  opposite  effect. 

The  second  disadvantage  is  the  user  should  be  familiar  with  the  structure  of 
keyword  categories.  Both  of  this  disadvantages  cause  the  search  to  be  an  exercise  of  trial 
and  error. 

b.  Multi-attribute  Search 

Multi-attribute  search  mechanisms  are  similar  to  keyword  search 
mechanisms,  but  also  use  other  characteristics  of  the  component  being  searched.  These 
characteristics  that  can  be  utilized  for  retrieval  are  the  class  of  the  object  (procedure, 
function,  package,  etc.),  the  number  and  types  of  parameters,  the  number  of  operations  it 
supports,  its  domain  of  use,  etc. 
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The  advantage  of  this  method  is  that  a  component  description  contains  more 
than  just  keyword  information.  The  attributes  taken  together  make  up  a  classification 
scheme  that  provides  more  information  than  would  be  present  in  a  pure  keyword  search. 

The  disadvantage  of  multi-attribute  search  is  that  the  classification  and 
subsequent  storage  location  of  a  component  defined  by  its  attributes  is  left  to  the 
administrator,  but  users  will  not  necessarily  classify  the  same  component  the  same  way.  If 
the  user  succeeds  in  filling  in  the  same  values,  the  query  will  be  successful,  otherwise  recall 
of  similar  components  will  be  low. 

c.     Natural  Language  Interfaces 

This  is  a  growing  area  of  computer  science  research.  An  advantage  of  this 
system  is  the  ease  of  language  query  formulations  by  system  users. 

In  reusable  component  retrieval,  the  query  will  be  issued  through  a  natural 
language.  Because  of  the  ambiguity  inherent  in  the  broad  semantics  of  natural  language,  a 
complex  and  detailed  processing  of  the  input  language  needs  to  be  applied.  Overcoming  the 
difficulties  of  semantic  analysis  is  the  main  challenge  in  dealing  with  natural  languages. 

3.     Formal  Specifications 

There  are  many  specification  languages  that  has  been  used  to  describe  the 
semantics  of  software  processes.  Examples  of  existing  specification  formalisms  are 
predicate  calculus  [RW90b],  plan  calculus  [RW90a],  and  algebraic  formalisms  [GTW78]. 

Because  these  specification  languages  are  based  on  such  specification  formalisms 
they  are  free  from  ambiguity  and  can  be  transformed  into  normal  representations  by  using 
logic  and  term  rewriting  rules  without  changing  their  meaning. 

The  disadvantage  is  specifications  may  be  difficult  for  to  write.  Another 
disadvantage  is  that  processing  times  for  the  search  algorithms  may  be  excessive  depending 
on  the  approach  taken.  Finally,  matching  formal  specifications  is  a  hard  problem. 
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C.      CURRENT  RETRIEVAL  SYSTEMS  AND  TOOLS 

This  section  describes  some  of  the  systems  that  have  been  built  to  perform  reusable 
component  retrieval  and  investigates  the  methods  used  by  each  system. 

1.     Draco 

The  Draco  project  [Neig84]  is  an  approach  to  software  engineering  that  has  had  a 
large  impact  on  software  reusability  in  general.  The  Draco  approach  focuses  on  domain 
engineering  of  software. 

The  most  important  aspect  of  Draco  is  the  domain  language.  Software 
components  are  organized  into  problem  areas  or  domains  and  a  domain  language  describes 
objects  and  operations  of  a  particular  domain.  There  is  a  reusable  component  associated 
with  each  domain  language  object  or  operation.  Since  there  is  a  potentially  large  number  of 
components  within  a  domain,  a  classification  scheme  is  developed  for  the  components 
called  faceted  classification  to  aid  in  organizing  and  retrieving  the  components. 

Using  faceted  classification,  Draco  approach  utilizes  a  multi-attribute  query 
method.  Queries  are  constructed  by  the  formulation  of  a  tuple  of  attributes  that  best 
characterizes  a  particular  domain.  A  query  session  begins  with  the  most  specific  query,  that 
is,  all  attributes  filled  in.  If  the  results  of  the  query  are  unsatisfactory,  the  user  may 
generalize  the  query  by  inserting  wildcards  for  attribute  values. 

The  advantages  of  faceted  classification  are  that  it  is  conceptually  simple  for  users 
and  relatively  easy  to  implement.  Because  of  this,  the  concept  has  been  borrowed  to 
implement  the  retrieval  mechanisms  in  both  RAPID  (see  Section  EI.C.2)  and  OSS  (see 
Section  II.C.5). 

One  disadvantage  of  multi-attribute  search  is  that  semantically  similar 
components  may  not  be  found  when  their  attribute  definitions  are  different.  Draco 
alleviates  this  problem  by  maintaining  a  measure  of  conceptual  closeness  for  the  term  lists 
of  each  attribute.  This  way,  an  unsuccessful  search  can  be  tried  again  using  an  alternative 
but  similar  term  in  one  of  the  attributes. 
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The  disadvantages  of  faceted  classification  are  that  it  is  not  suitable  for 
unconstrained  domains  and  semantically  similar  components  may  be  missed  from  other 
domains,  even  with  a  conceptual  closeness  measure. 

2.  RAPID 

The  RAPED  (Reusable  Ada  Packages  for  Information  System  Development) 
project  is  an  ongoing  effort  in  the  Department  of  Defence  [Voge90].  The  objective  of 
RAPID  is  to  provide  software  engineers  with  quick  access  to  reusable  Ada  packages  in  the 
information  systems  domain.  The  functions  it  performs  are  reusable  software  component 
classification,  storage,  and  retrieval. 

RAPID  uses  a  faceted  classification  scheme  to  organize  and  retrieve  components 
and  falls  into  the  category  of  multi-attribute  search.  No  measures  of  performance  or  quality 
assessments  are  available  yet. 

3.  The  Reusable  Software  Library 

The  Reusable  Software  Library  is  a  system  designed  to  make  software  reuse  an 
integral  part  of  the  software  development  process  [BW87].  The  system  couples  a  passive 
software  database  with  interactive  software  design  tools  to  help  software  developers  find 
and  evaluate  components  to  meet  their  requirements. 

Components  are  stored  in  the  database  with  attribute  values  that  provide  a  basis 
for  search.  There  are  two  methods  available  to  search  for  components,  standard  multi- 
attribute  search  and  natural  language.  The  multi-attribute  approach  provides  a  menu  driven 
interface  in  which  the  user  selects  the  attributes  with  which  to  perform  the  search. 
Alternatively,  the  user  may  express  his  query  in  the  form  of  natural  language,  such  as  "I 
need  a  stack  package.".  The  system  parses  the  input,  extracts  keywords  from  it  and  uses 
those  words  as  attributes  to  perform  the  search. 

The  designers  of  the  system  report  that  the  natural  language  front  end  is 
considerably  easier  to  use  but  the  search  is  significantly  slower,  by  a  factor  of  five  to  ten 
because  of  the  natural  language  parsing  overhead  involved. 


15 


4.  The  Programmer's  Apprentice 

The  goal  of  Programmer's  Apprentice  project  is  to  apply  artificial  intelligence 
techniques  in  an  effort  to  automate  the  programming  process  [RW90a].  It  is  designed  to 
provide  intelligent  assistance  in  all  phases  of  a  programming  task. 

A  reusable  component  is  called  a  cliche.  A  cliche  represents  a  commonly  used 
combination  of  elements  such  as  abstract  data  types,  binary  searches,  etc.  Thus,  programs 
may  be  considered  as  collections  of  interrelated  cliches. 

A  formalism  called  Plan  Calculus  is  developed  to  represent  cliches.  A  plan 
defines  a  single  cliche  in  three  parts:  a  plan  diagram,  a  logical  annotation,  and  an  overlay. 
Together  these  parts  constitute  a  language  independent  formalism  for  describing  reusable 
software  components. 

A  maintenance  tool  called  the  Recognizer  automatically  finds  all  occurrences  of 
a  given  set  of  cliches  in  a  program  and  builds  a  hierarchical  description  of  the  program  in 
terms  of  the  cliches  found.  It  is  not  clear  whether  the  Recognizer  will  be  used  as  a  general 
purpose  component  retrieval  tool.  It  is  currently  limited  to  finding  algorithmic  cliches  but 
the  researchers  hope  to  extend  its  capability  to  find  data  structures  and  data  abstraction  as 
well. 

5.  Operation  Support  System 

The  Operation  Support  System  (OSS)  is  an  ongoing  project  aimed  at  developing 
an  integrated  software  engineering  environment  undertaken  by  Naval  Ocean  Systems 
Center  [Stei91].  One  goal  of  the  project  is  to  establish  a  Navy  software  library  of  reusable 
software  components. 

The  current  prototype  library  subsystem  allows  component  retrieval  using  faceted 
classification,  keywords,  or  a  textual  browser.  The  components  currently  stored  in  the 
library  are  large  command,  control,  and  communications  subsystems.  Since  the  library  is 
in  its  early  stages,  no  information  is  available  on  its  performance  characteristics. 
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6.     Specifications  as  Search  Keys 

An  experimental  system  developed  at  Carnegie  Mellon  University  uses  formal 
specifications  to  search  software  libraries  [RW90b].  Each  function  in  the  library  has  a 
corresponding  formal  specification.  Specification  matching  is  the  process  of  determining 
whether  a  specification  of  a  library  function  satisfies  a  query.  Specifications  and  queries  are 
written  in  >*Prolog. 

Each  specification  has  a  signature  and  some  semantic  information.  Their  aim  is  to 
match  first  on  signature  and  then  increase  precision  by  matching  on  specification 
semantics.  The  system  designers  claim  that  the  use  of  semantics  in  specification  matching 
increases  precision.  Although  they  give  examples  showing  precision  is  improved,  they  do 
not  provide  statistics  that  indicate  how  much. 
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III.  CAPS  SOFTWARE  BASE 

The  paradigm  for  rapid  prototype  construction  in  CAPS  leads  the  designer  from  a 
graphical  representation  of  the  prototype,  through  specification  with  a  prototyping 
language  (PSDL),  and  then  on  to  code  generation.  Figure  3.1  shows  the  prototyping  process 
supported  by  CAPS  [LK88]. 


Specifications 


Yes 


Decompose 


Specify 
components 


I 


Prototyping 
system 


I 


Compose 
components 


Inter- 


connections 


Rewrite 
specifications 


Formulate 
query 


I 


Search 
components 


Hand-code 


Resolve/ 
choose 


Retrieve 
component 


Figure  3.1  -  The  CAPS  Prototyping  process 
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As  seen,  CAPS  takes  advantage  of  a  library  of  reusable  software  components.  The 
prototype  designer  writes  specifications  for  the  operators  and  data  streams  to  model  system 
requirements,  these  specifications  are  used  to  locate  components  that  will  satisfy  those 
requirements.  A  retrieval  system  that  is  automatic,  efficient,  and  effective  relieves  the 
designer  from  having  to  use  a  browser  or  some  other  manual  means  to  locate  components. 
This  is  particularly  beneficial  when  the  software  base  contains  a  large  number  of 
components.  Once  the  desired  component  is  retrieved,  the  next  challenge  is  to  integrate  it 
into  the  system. 

The  functionality  of  software  base  can  be  divided  into  three  main  categories:  Storage, 
retrieval,  and  integration  of  components.  This  scheme  can  be  viewed  in  figure  3.2. 
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Figure  3.2  -  Functionality  of  Software  Base 

The  storage  and  retrieval  facility  of  software  base  is  described  in  the  remainder  of  this 
chapter,  and  integration  process  is  described  in  chapter  iv. 

A.     COMPONENT  STORAGE 

Due  to  the  complexity  of  storing  variable  length  source  code  and  querying  the  software 
base  using  PSDL  specifications,  a  powerful  DBMS  is  necessary.  This  DBMS  should  also 
support  multi-user  and  networked  access  to  its  data  as  CAPS  is  designed  for  multi-user 
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networking  environment.  This  database  should  perform  the  component  storage  facility  of 
the  software  base. 

1.     ONTOS  Database  Management  System 

Ontos  is  a  distributed  object  database  management  system  [Onto90].  It  consists 
of  a  database,  a  set  of  utilities,  and  a  C++  interface.  It  was  selected  for  use  in  the  software 
base  project  because  it  has  sufficient  capabilities  to  handle  the  requirements  for  the 
implementation  of  an  advanced  reusable  software  component  library. 

Ontos  allows  the  database  developer  the  ability  to  make  any  data  object  persist 
past  the  execution  of  the  program  that  created  it.  To  achieve  this,  the  ONTOS  class  library 
introduces  an  Object  class.  It  is  the  parent  of  all  persistent  classes.  Object  defines  a 
constructor  for  creating  objects  in  the  database  and  a  destructor  for  deleting  them.  The 
Object  class  constructor  assigns  each  object  a  unique  identifier  and  provides  methods  to 
store  and  retrieve  them. 

Ontos  includes  a  set  of  persistent  aggregate  classes  in  order  to  efficiently  handle 
collections  of  persistent  objects.  The  aggregate  classes  include  Dictionaries,  Lists,  Sets,  and 
Arrays.  The  aggregate  class  hierarchy  is  shown  in  figure  3.3. 
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Figure  3.3  -  The  Aggregate  Class  Hierarchy 
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The  aggregate  classes  are  container  classes  and  are  used  to  deal  with  groups  of 
objects.  The  List  class  is  analogous  to  a  linked  list  data  structure.  The  Set  class  implements 
the  standard  concept  of  set  and  the  Array  class  implements  the  concept  of  arrays.  The 
Dictionary  class  is  the  most  versatile  of  the  aggregate  classes  and  it  is  extensively  used  to 
implement  the  structure  of  the  software  base.  All  of  the  four  classes  are  fully  dynamic  and 
can  grow  without  bound. 

The  Dictionary  class  is  a  keyed  data  structure  that  can  be  ordered  or  unordered. 
Every  entry  in  a  Dictionary  has  two  attributes  stored,  the  Tag  and  the  Element.  The  Tag  is 
used  for  indexed  look  up  and  the  Element  is  to  hold  the  data.  Dictionaries  may  allow  or  not 
allow  duplicate  elements  for  a  given  Tag. 

Ordered  Dictionaries  are  maintained  in  ascending  key  order  and  use  B-tree  access 
structure  to  sort  entries  based  on  the  relative  ordering  of  their  tag  values.  Unordered 
Dictionaries  use  hash  table  access  structure. 

2.     Storing  The  Components 

The  CAPS  software  base  [McDo91]  is  designed  as  a  general  purpose  tool  capable 
of  storing  components  implemented  in  many  programming  languages.  Because  of  the 
differences  in  the  capabilities  of  each  programming  language  there  are  differences  in  the 
way  the  pre-defined  abstract  data  types  used  in  PSDL  to  specify  components  are  interpreted 
by  the  software  base.  These  differences  in  the  interpretation  of  PSDL  specifications  require 
that  all  components  of  a  particular  implementation  language  be  considered  in  a  unique 
domain.  It  is  also  possible  to  create  multiple  component  domains  for  a  given 
implementation  language.  Each  domain  is  a  library  composed  of  five  parts:  a  component 
dictionary,  a  keyword  library,  an  operator  library,  an  abstract  data  type  library,  and  a 
recognized  type  matrix. 

For  each  component  in  a  domain,  six  text  files  must  be  stored.  These  files  are  the 
PSDL  specification,  the  implementation  language  specification,  the  implementation  body, 
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the  informal  description,  the  axiomatic  specification,  and  a  normalized  version  of  the 
axiomatic  specification. 

A  persistent  class  was  designed  inheriting  from  the  Ontos  class  Object  to  allow 
storage  and  retrieval  of  these  text  files.  Instances  of  this  class  is  used  as  attributes  of  each 
component  in  the  software  base  to  store  the  files. 

B.      RETRIEVING  THE  COMPONENTS 

There  are  three  methods  to  retrieve  a  stored  component:  by  PSDL  query,  by  keyword 
query,  and  through  a  component  name  browser.  Although  browsing  by  component  name 
and  keyword  querying  are  not  the  preferred  methods  for  finding  reusable  components  in  a 
large  software  base,  they  are  necessary  features  of  any  software  collection. 

Each  domain  is  divided  into  two  categories:  abstract  data  types  and  operators.  An 
ordered  list  of  components  is  provided  for  browsing  the  components  by  their  name  in  these 
disjoint  categories. 

Each  software  base  library  also  includes  a  keyword  library  for  handling  keyword 
access  to  its  components.  The  keyword  attribute  of  PSDL  specification  is  used  to  perform 
a  keyword  structured  search  in  the  software  base.  The  result  of  a  keyword  query  is  a  list  of 
those  components  that  posses  one  or  more  of  the  query  keywords.  The  list  is  ordered  with 
those  components  that  satisfy  the  most  query  keywords  coming  first. 

1.     Query  by  PSDL  Specification 

This  method  uses  the  syntax  and  semantics  of  the  PSDL  specification  to  conduct 
the  search  for  a  component.  First,  the  PSDL  specification  is  modified  to  improve  the 
efficiency  of  the  search.  The  process  of  transforming  or  manipulating  the  specification  for 
a  reusable  software  component  is  called  normalization. 

Components  to  be  stored  goes  through  a  syntactic  and  semantic  normalization 
process  that  transform  the  component's  PSDL  specification  to  facilitate  later  matching.  The 
normalized  specification  is  stored  with  the  component  in  the  software  base.  At  the  retrieval 
phase,  a  query  for  a  library  component  is  formed  by  constructing  the  PSDL  specification 
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for  the  desired  component.  The  query  specification  is  syntactically  and  semantically 
normalized  and  then  matched  against  the  stored  specifications. 

Syntactic  normalization  standardizes  the  form  of  the  query's  interface 
characteristics  to  be  used  in  syntactic  matching.  Semantic  normalization  transforms  the 
signature  and  axioms  of  the  specification  to  make  them  suitable  for  semantic  matching 
[Stei91].  Syntactic  matching  takes  place  before  the  semantic  matching.  Syntactic  matching 
is  faster  and  quickly  narrows  the  list  of  possible  candidates  while  semantic  matching  is  time 
consuming  and  should  be  applied  to  as  small  a  candidate  list  as  possible.  The  main  benefit 
of  syntactic  matching  is  speed  whereas  the  advantage  of  semantic  matching  is  accuracy. 
This  schema  is  shown  in  figure  3.4.  The  functional  programming  language  OBJ3  is  used 
for  semantic  matching  and  further  details  can  be  found  in  [Stei91]. 
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Figure  3.4  -  Normalization  for  Component  Retrieval 
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IV.  INTEGRATION  OF  REUSABLE  COMPONENTS 

Once  a  reusable  component  is  retrieved,  incorporating  it  into  the  developed  software 
system  is  an  important  task  of  a  software  base.  Software  base  should  support  the  automatic 
adaptation  of  the  retrieved  components  into  the  program  at  construction  time  ensuring  the 
full  context  compatibility.  This  process  will  require  a  transformation  procedure  to  be 
applied  on  the  retrieved  components  such  as  changing  the  parameters,  operator  names  etc. 
as  well  as  instantiating  the  generic  parameters. 

A.     INTEGRATING  THE  REUSABLE  COMPONENTS  INTO  CAPS 

Software  base  should  provide  a  component  implementation  that  meets  the  needs  of  the 
CAPS  execution  support  system.  To  accomplish  this,  the  retrieved  component  should  be 
transformed  into  a  suitable  form  to  be  used  by  the  implemented  system.  On  the  other  hand, 
software  base  cannot  directly  generate  implementation  code  as  it  is  not  language  specific. 
Therefore,  we  need  an  integration  tool  to  generate  the  necessary  code  to  incorporate  the 
component  into  the  system.  In  the  rest  of  this  chapter,  the  methodology  and  the 
implementation  of  an  integration  tool  developed  for  incorporating  the  retrieved 
components  into  the  CAPS  is  discussed. 

1.     An  Integration  Tool  For  CAPS  Software  Base 

The  software  base  provides  three  methods  to  retrieve  a  stored  component  as 
discussed  previously.  The  kind  of  method  used  for  retrieval  is  important  for  incorporation. 
We  have  a  PSDL  query  containing  the  requirements  of  execution  support  system  if 
component  is  retrieved  by  query,  and  no  specification  is  provided  if  keyword  query  or 
browsing  by  component  name  methods  are  used. 

If  component  is  retrieved  by  PSDL  query,  we  can  use  this  query  specification  in 
transformation  to  change  the  input/output  parameter  names,  operator  or  type  names,  and  to 
instantiate  the  generic  parameters  if  there  is  any. 
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If  retrieval  is  conducted  through  other  methods,  no  change  of  parameter  and 
operator/type  name  is  necessary,  but  we  still  should  have  means  to  instantiate  the  generic 
parameters  and  transform  the  retrieved  component  into  a  form  that  can  be  used  by  the 
system. 

B.      METHODOLOGY  FOR  TRANSFORMATION 

It  has  been  difficult  to  reuse  software  components  in  practice  as  in  most  cases  two 
instances  of  the  same  component  are  rarely  alike.  Typically,  many  small  variations  on  a 
theme  exist  and  generally  it  is  difficult  to  predict  which  variation  will  be  needed  in  a  certain 
implementation. 

This  situation  can  be  alleviated  by  providing  a  transformation  mechanism  that  adapts 
the  components  explicitly  stored  in  software  base.  This  capability  has  two  important  effects 
on  software  reuse.  First,  retrieval  process  has  a  much  better  chance  of  successfully 
retrieving  a  specified  component  from  the  software  base  compared  to  a  system  that  can  only 
return  components  explicitly  stored  in  the  software  base.  Second,  automatically  adapting 
the  reusable  components  after  retrieval  is  important  in  rapid  prototyping  where  designer 
time  is  at  a  premium. 

Transformations  should  take  place  in  such  a  way  that  it  should  have  no  effect  on  the 
stored  component,  yet  it  should  be  readily  usable  by  the  system.  This  means  that  instead  of 
modifying  the  retrieved  component,  it  should  be  used  as  a  basis  for  the  transformation 
module.  In  our  case,  this  is  accomplished  through  the  with  statement  for  Ada  libraries.  The 
same  schema  may  be  applied  to  other  languages  through  an  inheritance  mechanism  as  it 
will  be  the  case  in  C++.  This  module  should  be  automatically  generated  as  a  pan  of  the 
retrieval/integration  system. 

In  our  application,  the  transformation  module  will  be  created  for  each  retrieved 
component  and  will  be  embodied  in  its  own  package  through  the  integration  process.  This 
package  will  be  saved  in  the  work  area  and  will  be  used  by  the  designer.  All  name  and 
parameter  changes  as  well  as  generic  instantiations  will  be  embedded  in  this  package. 
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Because  there  are  various  ways  to  retrieve  a  component,  the  creation  of  this  transformation 
module  varies  for  each  method. 

The  implementation  of  transformation  module  is  discussed  in  sections  4.D  and  4.E. 
The  structure  of  integration  tool  is  discussed  in  the  next  section. 

C.  STRUCTURE  OF  THE  INTEGRATION  TOOL 

The  Integration  Tool  is  used  to: 

(i)   input  PSDL  of  the  retrieved  component  (and  query  if  PSDL  query  method  is  used), 

(ii)  transform  the  required  component,  parameter  names  and  perform  instantiations, 

(iii)output  the  transformation  module  encapsulated  in  its  own  package. 

The  structure  of  the  integration  tool  is  in  figure  4.1. 
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Figure  4.1  -  Structure  of  The  Integration  Tool 
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In  the  first  step,  the  PSDL  specification  of  the  retrieved  component  and  the  PSDL 
query  (if  the  query  by  PSDL  specification  method  is  used  for  retrieval)  are  parsed  by  a 
LARL(l)  parser.  This  parser  is  constructed  by  using  the  tools  ay  ace  and  aflex,  which  are 
Ada  versions  of  the  parser  generator  tools  yacc  and  lex  that  are  provided  in  UNIX 
environment  [TTS88,  Self90]. 

In  the  second  step,  PSDL  of  the  retrieved  component  is  evaluated.  Depending  on  the 
retrieval  method,  various  structures  that  will  be  used  to  compose  the  transformation  module 
are  created.  If  retrieval  is  performed  by  PSDL  query,  operator  and/or  type  names  and 
parameters  of  retrieved  component  are  also  mapped  to  the  corresponding  descriptions 
given  in  query. 

In  the  third  step,  an  Ada  package  is  created  and  the  transformed  representation  of  the 
retrieved  component  is  written  into  this  package  to  be  used  by  the  prototype. 

1.     PSDL  Parser 

Two  LARL(l)  parsers  are  used  to  parse  the  PSDL  specification  of  the  retrieved 
component,  and  the  PSDL  query  if  supplied.  Because  the  actions  and  the  resulting 
structures  to  be  formed  will  be  different  for  two  types  of  integration  process  we  need  two 
different  parsers,  one  for  the  integration  of  the  components  retrieved  by  PSDL  query,  one 
for  the  integration  of  the  components  retrieved  by  named  look  up  or  keyword  query.  Each 
parser  is  constructed  by  using  a  parser  generator  -ayacc,  and  a  lexical  analyzer  -aflex. 

Two  auxiliary  packages  are  supplied  to  provide  the  structures  in  which  the 
information  about  the  parsed  PSDL  specifications  will  be  stored  for  use  during  the 
composing  process.  These  packages  also  contain  the  Ada  code  for  the  semantic  actions 
which  will  take  place  during  the  parsing  process  of  PSDL  specifications. 
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The  top  level  diagram  of  the  parser  is  in  Figure  4.2. 


Aflex  Specification 
(PSDL  Tokens) 


Aflex 


[       yylex    J 


Ayacc  Specification 
(PSDL  Grammar) 


Ada  Compiler 


Parser 


Figure  4.2  -  Parser  Generation 

a.    Parser  Generator  (Ayacc) 

Ayacc  [TTS88]  generates  a  parser  from  an  input  of  BNF  style  specification 
grammar,  accompanied  by  a  set  of  Ada  program  fragments  called  actions  to  be  executed  as 
each  grammar  rule  is  recognized. The  generated  output  is  a  set  of  Ada  program  units  that 
act  as  a  parser  for  the  input  grammar. 
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The  main  parser  procedure  yyparse  makes  a  call  to  lexical  analyzer  function 
yylex  to  get  an  input  token,  and  then  matches  the  grammar  rules  and  executes  the  actions 
associated  with  these  grammar  rules.  Ayacc  needs  a  specification  file  as  input  which  is  a 
collection  of  grammar  rules  and  actions  associated  with  them,  along  with  the  Ada 
subprograms  we  provided  to  be  used  in  the  semantic  actions.  The  input  specification  files 
provided  are  psdl.y  and  query. y  containing  the  rules  to  process  the  PSDL  specifications  of 
the  retrieved  component  and  query  respectively. 

Ayacc  generates  four  files,  three  auxiliary  packages  and  a  parser.  The  parsers 
generated  for  our  application  are  in  the  files  psdl.a  and  query. a. 

b.    Lexical  A  nalyzer  (Aflex) 

Aflex  [Self90]  is  a  lexical  analyzer  generating  tool  written  in  Ada  designed 
for  lexical  processing  of  character  input  streams.  Aflex  accepts  high  level  rules  written  in 
regular  expressions  for  character  string  matching,  and  generates  Ada  source  code  for  a 
lexical  analyzer,  by  using  a  finite  state  machine  to  recognize  input  tokens.  Aflex  can  be 
used  alone  for  simple  lexical  analysis,  or  with  ayacc  to  generate  a  parser  front-end,  as  in 
our  application. 

Aflex  generates  a  file  containing  a  lexical  analyzer  function  (yylex)  along 
with  two  other  auxiliary  packages.  Lexical  analyzer  is  implemented  as  an  Ada  package  in 
this  application.  The  files  query Jex.l,  for  retrieval  by  PSDL  query,  and psdl  lex. /,  for  other 
retrieval  methods,  are  the  inputs  to  aflex.  They  define  the  lexical  classes  and  the  regular 
expressions  used  in  the  PSDL  grammar.  Each  regular  expression  is  associated  with  an 
action  which  is  written  in  Ada  and  executed  when  the  regular  expression  is  matched.  The 
lexical  analyzer  function  yylex  returns  a  single  token  after  each  call,  made  by  the  parser 
procedure  yyparse  of  ayacc.  The  name  of  the  generated  file  is  psdljex.a. 

2.     Transformation  Process 

Retrieved  component  is  used  as  a  basis  for  the  creation  of  the  transformation 
module.  This  process  is  conducted  in  two  phase.  First,  the  PSDL  specification  of  the 
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retrieved  component  is  parsed  and  the  necessary  information  about  the  component  is  stored 
in  the  structures  supplied  in  the  auxiliary  package  component  awe _pkg.  This  information 
includes  the  name  of  the  component,  whether  the  component  is  a  type  or  operator,  generic 
parameters,  and  input/output  parameter  names  and  values.  If  the  component  is  a  type, 
information  related  to  each  operator  is  also  extracted  during  the  parsing  process. 

Second,  the  retrieval  method  is  evaluated  in  the  composition  phase.  If  retrieval 
process  is  accomplished  through  named  look  up  or  keyword  query,  the  creation  of  the 
transformation  module  is  conducted  by  using  the  information  extracted  from  the  PSDL 
specification  of  the  component  during  parsing.  This  process  is  analogous  to  the  use-as-is 
methodology.  Although  it  is  not  the  preferable  method  of  code  reuse,  it  can  still  be  utilized. 
Therefore,  we  included  an  integration  mechanism  for  these  kind  of  retrieval  and  reuse 
schemes  as  well.  Output  of  composer  is  the  transformation  module  containing  the 
implementation  that  incorporates  the  retrieved  component  as  is  through  Ada  with  statement 
and  renaming.  This  procedure  is  explained  in  detail  in  section  4.C.2.a. 

If  retrieval  of  the  component  is  accomplished  by  PSDL  query,  we  need  a  mapping 
mechanism.  For  this  purpose,  the  PSDL  query  is  also  parsed  and  similarly  the  information 
about  the  query  is  stored  in  a  separate  structure  supplied  by  the  auxiliary  package  called 
query _aux_pkg.  This  information  is  used  to  transform  the  component  name,  operator 
names  (if  component  is  a  type),  and  parameter  name  and  values  to  maintain  the  consistency 
in  the  system. 

Mapping  process  is  carried  out  during  the  composition  of  the  transformation 
module  by  using  the  information  from  both  structure  packages,  namely 
component _aux_pkg  and  query _aux_pkg.  During  this  mapping  procedure  generic 
parameters  are  also  taken  into  consideration.  If  retrieved  component  is  generic,  the  value 
of  each  input  and  output  parameter  is  checked  against  the  generic  parameters.  This  issue  is 
addressed  in  section  4.C.2.b. 

The  resulting  transformation  module  is  implemented  as  a  package  and  saved  in 
the  prototype  directory.  Thus,  implementation  for  the  integration  of  each  retrieved 
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component  is  encapsulated  in  its  own  package.  The  file  this  package  is  written  into  is  called 
proto-prefix. atomic  .a  where  atomic  stands  for  the  component  name.  The  details  about  the 
creation  of  the  transformation  module  is  in  the  following  two  sections. 

a.     Transformation  Module  for  The  Components  Retrieved  by  Browsing 

Keyword  query  and  named  look  up  of  components  are  two  methods  used  for 
reusable  component  retrieval.  None  of  these  methods  provide  the  specifications  required 
by  the  design  process.  Nevertheless,  we  should  provide  ways  to  integrate  a  component 
retrieved  by  these  methods  as  it  may  be  desirable  to  use  this  component  as  it  is.  In  this  case 
no  parameter  change  is  required.  We  need  to  generate  a  package  withed  to  the  retrieved 
component  and  rename  the  contained  procedures. 

For  this  process,  the  PSDL  specification  of  the  retrieved  component  is  used 
to  generate  the  transformation  module.  Figure  4.3  is  the  schema  for  the  creation  of 
transformation  module. 
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Figure  4.3  -  Integration  process 

The  PSDL  specification  of  the  retrieved  component  is  parsed  and  the  values 
to  construct  the  transformation  module  are  extracted.  These  values,  which  are  component 
name,  parameter  name  and  values  etc.,  are  then  used  to  construct  the  transformation 
module.  At  this  phase,  the  generic  parameter  values  should  also  be  supplied  to  perform  the 
instantiation  of  generic  components.  A  detailed  discussion  of  generic  instantiation  can  be 
found  in  section  4.C.3. 
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After  this  process,  an  Ada  package  containing  the  transformation  module  is 
created  and  written  in  the  proto -prefix. atomic  .a  file  by  utilizing  the  package 
component  compose _pkg.  Resulting  package  is  saved  in  the  prototyping  directory. 

An  example  template  about  the  contents  of  the  generated  package  can  be  seen 
in  Figure  4.4.  ADTs  and  procedures  (corresponding  types  and  operators  in  PSDL 
specification)  are  both  incorporated  the  same  way. 


proto-prefix.retrieved_component.a 


with  retrieved_component; 
package  retrieved_component_pkg  is 
—if  generic 

package  tmp_retrieved_component_pkg  is  new 

retrieved_component  ( -parameters- ); 

procedure  pi  ( -parameters- )  renames  tmp_retrieved_component_pkg.pl; 

procedure  p2  ( -parameters- )  renames  tmp_retrieved_component_pkg.p2; 
end  retrieved_component_pkg; 


Figure  4.4  -  Generated  package  of  transformation  module 

b.    Transformation  Module  for  The  Components  Retrieved  by  Query 

Designer  will  create  a  PSDL  specification,  which  will  describe  the  properties 
of  the  desired  component,  during  the  prototyping  process  and  will  use  this  specification  to 
query  the  software  base  to  find  a  matching  component.  If  there  is  any  matching  component 
in  the  software  base,  the  retrieval  will  be  successful  and  a  list  of  retrieved  components  (one 
or  more)  will  be  available.  Then  the  designer  will  choose  the  component  which  best  suits 
to  his  or  her  design  and  will  integrate  that  component  into  his/her  system. 
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The  PSDL  query  contains  the  specific  information  about  the  required 
component  such  as  the  desired  component  name,  parameter  name  and  values,  procedure 
names  etc.  Although  the  retrieved  component  satisfies  the  query,  it  will  probably  have 
different  component  name,  parameter  name  and  values,  and  may  even  be  generic.  In  this 
case  we  need  to  transform  these  values  and  names,  and  instantiate  the  component  if  it  is 
generic. 

Integrating  such  a  component  requires  a  mapping  schema.  The  names  and 
values  of  the  retrieved  component  should  be  mapped  to  those  of  the  names  and  values  of 
the  query.  This  process  is  accomplished  by  the  integration  tool  and  the  resulting 
transformation  module  contains  the  implementation  consistent  with  the  query.  Figure  4.5 
gives  the  top  view  of  the  schema  to  perform  this  operation. 
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Figure  4.5  -  Integration  Process 

The  PSDL  of  the  retrieved  component  and  query  PSDL  are  parsed  and 
portions  of  relevant  information  is  stored  in  respective  structures.  During  the  composing 
operation  the  retrieved  component  is  with'ed  to  the  transformation  module.  If  the  retrieved 
component  is  generic,  it  is  instantiated  with  the  generic  values  supplied.  Then,  depending 
on  whether  the  retrieved  component  is  operator  or  type,  each  procedure  is  renamed 
according  to  the  procedure  and  input/output  parameter  names  in  the  query  PSDL. 
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Meanwhile,  each  input/output  parameter  value  is  also  checked  to  determine  whether  it  is 
generic. 

After  this  procedure  is  carried  out,  the  implementation  is  consistent  with  the 
PSDL  query.  The  transformed  representation  of  the  retrieved  component  is  then  saved  into 
the  prototyping  directory  and  it  is  ready  to  be  used  in  the  prototype.  The  name  of  the  file 
the  implementation  is  saved  in  is  proto-prefix. atomic . a,  where  atomic  stands  for  the  desired 
component  name  specified  in  the  PSDL  query  file.  Figure  4.6  is  an  example  output  for  the 
transformation  module,  query _component  stands  for  the  name  of  the  component  specified 
in  the  PSDL  query. 


proto-prefix.  query  _component.a 


with  retrieved_component; 

package  query _component_pkg  is 

—if  generic 
package  tmp_query_component_pkg  is  new  retrieved_component(-parameters-); 
procedure  query _pl  (-parameters-)  renames  tmp_query_component_pkgjetrieved_pl: 
procedure  query _p2  (-parameters-)  renames  tmp_query_component_pkg.retrieved_p2; 

end  query_component_pkg; 


Figure  4.6  -  Generated  package  of  transformation  module 

One  problem  that  may  be  encountered  during  this  process  is  the  retrieved  and 
query  (desired)  component  names  being  the  same.  In  this  case  renaming  the  retrieved 
component  with  the  same  name  will  cause  an  error  with  respect  to  Ada  rules.  To  prevent 
this  problem  a  certain  naming  convention  must  be  applied. 
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One  solution  is  appending  a  suffix  to  the  component  name  given  in  the  PSDL 
query,  but  this  will  also  require  a  change  in  the  PSDL  query  to  maintain  the  consistency 
between  the  query  and  implementation.  A  better  solution  is  to  store  every  component  in  the 
software  base  with  a  known  suffix.  Thus,  their  corresponding  PSDL  specifications  will  be 
consistent  and  will  require  no  further  modification.  The  suffix  used  in  this  implementation 
is  _sb,  i.e.  the  name  of  a  sort  procedure  stored  in  software  base  will  be  sort_sb. 

A  detailed  example  of  integration  process  is  given  in  Appendix  A. 

3.     Generic  Instantiation 

In  case  the  retrieved  component  has  generic  parameters,  instantiation  of  the 
component  during  the  transformation  process  should  take  place.  There  are  a  few  aspects 
that  should  be  taken  into  consideration  during  this  process. 

First,  we  need  to  be  able  to  instantiate  the  generic  components  retrieved  by  named 
look  up  or  keyword  query.  In  this  case,  the  generic  values  are  not  available  to  the  software 
base.  Generic  parameter  values  should  be  supplied  by  user. 

If  retrieval  is  accomplished  through  PSDL  query,  the  query  may  contain  some  or 
all  of  the  generic  parameter  values.  The  challenge  here  is  to  match  the  generic  parameters 
with  the  correct  values  supplied  by  the  query.  For  example,  if  two  generic  parameters  exist 
in  the  retrieved  component  and  two  values  are  supplied  by  the  query  PSDL,  during 
instantiation  correct  values  should  be  used  for  the  corresponding  appropriate  parameter. 
This  situation  is  worsened  if  the  supplied  values  by  the  query  PSDL  are  user  defined  type. 
In  this  case  a  chain  mapping  of  generic  parameter  values  will  be  required.  These  user 
defined  types  may  even  be  defined  in  another  PSDL  specification  as  this  is  a  common 
practice  in  Ada  programming  where  type  definitions  are  generally  encapsulated  in  a 
separate  package.  In  this  case  the  required  PSDL  file  should  be  searched  and  appropriate 
generic  values  should  be  extracted  from  this  file. 


35 


Considering  the  difficulties  of  such  an  implementation,  an  alternative  way  may  be 
to  redefine  the  user  defined  types  in  the  query  PSDL  and/or  to  modify  the  query  such  that 
all  generic  values  can  be  extracted  and  matched  to  the  generic  parameters. 

In  this  implementation  the  transformation  module  generates  the  template  for  the 
instantiation  of  the  generic  parameters  and  a  message  is  displayed  to  the  user  to  request  the 
generic  parameter  values. 
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V.  GRAPHICAL  USER  INTERFACE  FOR  SOFTWARE  BASE 

The  software  base  graphical  user  interface  (GUI)  is  designed  to  demonstrate  and 
manipulate  the  capabilities  of  the  software  base  as  efficiently  as  possible  by  applying 
generally  accepted  user  interface  design  principles.  This  chapter  outlines  the  software  base 
graphical  user  interface  design  decisions.  Appendix  B  is  the  user's  manual,  and  Appendix 
D  contains  the  source  code  for  the  software  base  graphical  user  interface. 

A.      DESIGN  PRINCIPLES 

The  key  goals  of  a  user  interface  design  are  to  make  the  system  easy  to  learn  and  use, 
to  reduce  the  error  rate,  and  to  be  intuitive  to  the  user.  This  requires  a  user  interface  to  be 
consistent,  provide  feedback,  minimize  error  possibilities  and  provide  error  recovery, 
accommodate  multiple  skill  levels,  and  minimize  memorization. 

To  satisfy  all  these  goals  is  not  easy  in  practice,  and  requires  a  through  analysis  of  both 
the  potential  users  and  the  required  functionality  of  the  underlying  system. 

1.     Users 

a.    Assumptions 

The  CAPS  users  are  expected  to  be  a  large  spectrum  of  people,  a  user  can  be 
a  novice  student  or  a  highly  skilled  software  engineer. 

All  users  are  assumed  to  be  accustomed  to  graphical  windowing 
environment.  They  are  considered  to  know  the  basic  skills  such  as  using  a  mouse,  working 
with  pull-down  menus  or  push  buttons,  etc. 

The  user  is  assumed  to  have  a  basic  knowledge  of  PSDL  specification 
language  and  its  functionality  in  the  CAPS.  He/she  is  not  expected  to  be  an  expert. 

The  user  is  assumed  to  be  familiar  with  the  implementation  language  he  is 
working  on.  Currently  all  operator  and  types  are  implemented  in  Ada. 
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b.     Requirements 

Considering  the  assumptions  about  the  user  and  preferred  design  decisions, 
an  efficient  user  interface  should  satisfy  these  basic  requirements  for  user: 

•  Must  be  suitable  for  a  wide  range  of  users  from  novice  to  expert. 

•  Must  be  easy  to  learn  and  use,  should  require  no  user  manual  for  operation. 

•  Must  use  a  graphical,  mouse  driven  interface. 

•  Must  provide  on-line  help. 

•  Must  show  user  only  relevant  information  and  steps. 

•  Must  display  only  one  panel/menu  item  at  a  time. 

•  Must  provide  feedback  to  the  user. 

•  Must  give  warnings  if  a  destructive  action  is  going  to  take  place. 

2.     System 

Since  CAPS  is  an  ongoing  project  at  the  Naval  Postgraduate  School,  underlying 
system  requirements  are  easy  to  determine.  The  Software  base  GUI: 

•  Must  run  on  Sun  or  compatible  workstations  under  Unix  operating  system. 

•  Must  run  under  X-Windows  for  portability. 

B.      IMPLEMENTATION  CONSIDERATIONS 

The  previous  version  of  software  base  user  interface  was  written  using  Stanford's 
Interviews  toolkit  (version  2.6)  as  a  prototype.  Interviews  makes  extensive  use  of  C++ 
features  such  as  inheritance  and  provides  a  number  of  predefined  objects,  including  push- 
buttons, scrollbars,  file  management  dialog  boxes  and  text  editors.  Although  it  was  a  good 
candidate  to  implement  this  complete  version  of  software  base  graphical  user  interface,  the 
goal  of  CAPS  is  to  implement  the  system  tools  in  Ada  as  much  as  possible.  Currently,  the 
only  existing  tool  that  can  be  used  in  user  interface  design  making  use  of  Ada  is 
Transportable  Applications  Environment  (TAE)  [Nasa91].  This  aspect  of  TAE  as  well  as 
the  other  qualifications  described  in  the  following  section,  has  played  a  key  role  to  choose 
the  TAE  as  the  toolkit  to  implement  the  software  base  graphical  user  interface. 
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1.     Transportable  Applications  Environment  (TAE) 

a.  Introduction 

The  software  base  graphical  user  interface  is  implemented  by  using 
Transportable  Applications  Environment  (TAE)  Plus,  an  integrated  environment  for 
developing  and  running  contemporary  window  and  graphics  based  application  systems. 
TAE  Plus  is  a  portable  software  development  environment  that  supports  rapid  building, 
tailoring,  and  management  of  graphic-oriented  user  interfaces.  It  provides  a  suite  of 
integrated  tools  and  software  libraries  for  developing  and  running  highly  interactive, 
graphical  application  systems. 

b.  Environment 

TAE  Plus  utilizes  X  window  system,  Version  11,  Release  4,  and  the  Open 
Software  Foundation's  Motif  Toolkit,  Version  1.1.1.  Interviews  2.6  is  also  bundled  with 
TAE  Plus. 

Figure  5. 1  illustrates  the  relationship  between  a  TAE  Plus  application  and  the 
XI 1  software. 


TAE  PLUS  APPLICATION 

WPT 

(Window  Programming  Tools) 

Motif  Toolkit 

X  Toolkit 

Xlib 

Operating  System  Libraries 

Figure  5.1  -  TAE  Plus,  Motif,  and  XI 1 
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The  application  primarily  calls  Wpt  functions.  The  Wpt  package  is  layered  on 
top  of  the  Motif  Toolkit,  which  interfaces  with  the  X  Window  System.  Motif  Toolkit 
provides  various  high  level  interface  objects  called  "widgets".  X  Toolkit  is  based  on  Xlib, 
which  provides  useful  set  of  graphics  primitives. 

While  the  Wpt  routines  provide  a  convenient  buffer  between  an  application 
and  the  complexities  of  XI 1  and  the  X  Toolkit,  an  application  is  free  to  access  the  X  Toolkit 
and  Xlib  directly. 

TAE  Plus  is  portable  across  a  wide  range  of  computing  platforms  using  either 
UNIX  or  VAX/VMS  operating  systems,  and  is  capable  of  generating  code  in  C,  Fortran, 
and  Ada. 

c.     Advantages 

•  Sophisticated  GUIs  can  be  built  in  less  time. 

•  Easy  to  use. 

•  Flexible  and  modular,  changes  can  be  made  locally  without  effecting  the 
other  parts  of  the  system. 

•  Portable,  it  can  be  utilized  on  many  different  computing  environments. 

•  Reusable,  interaction  objects  and  panels  can  be  reused  and  shared  avoiding 
the  duplication  of  the  effort. 

•  Consistent,  it  provides  interfaces  that  have  a  common  look  and  feel  across 
different  applications  and  environments. 

•  Possibility  of  implementation  in  different  languages. 

C.     SOFTWARE  BASE  GUI  ARCHITECTURE 

The  software  base  GUI  is  designed  to  manipulate  software  base  operations  through  a 
series  of  user  interactive  panels.  These  operations  can  be  classified  into  three  category: 
(i)  library  operations, 
(ii)  retrieval  operations,  and 
(iii)  manipulation  operations. 
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The  software  base  GUI  can  be  started  by  executing  the  command  softbase.exe,  by 
passing  two  command  line  arguments.  First  argument  is  the  path  to  the  prototype  directory 
and  the  second  argument  is  the  prototype  prefix,  which  is  required  by  the  software  base 
script  for  compilation.  The  argument  prototype-directory-path  specifies  the  current 
prototype  directory  where  the  design  process  is  carried  out.  The  retrieved  component  and 
the  integration  package  are  saved  in  this  directory  as  default.  This  path  can  also  be  entered 
as  an  environment  variable  (for  example,  $PROTOTYPE).  The  argument  prototype-prefix 
is  added  to  the  beginning  of  the  names  of  each  saved  file.  This  prefix  is  used  in  software 
base  script  to  group  each  compilation  unit. 

Due  to  the  current  equipment  setup  in  CAPS  lab,  it  is  necessary  to  invoke  the  software 
base  on  sun51,  since  Ontos  libraries  is  on  sun51. 

Online  help  is  provided  for  all  major  software  base  operations.  Various  warning  and 
error  messages  are  also  included  to  help  the  user. 

1.     Library  Operations 

The  panel  for  library  functions  is  the  top  level  of  the  software  base  GUI  system. 
It  provides  selection,  addition,  and  deletion  operations  to  be  performed  on  software  base 
libraries. 

If  the  creation  of  a  new  library  is  required,  library  addition  panel  provides  input 
for  the  name  of  the  new  library  and  the  rule  file  to  be  used.  This  operation  allows  one  to 
create  new  libraries  (for  example  C++,  Adal,  Ada2,  etc.). 

Library  deletion  panel  is  used  to  remove  an  existing  library  and  all  of  the 
components  of  that  library.  Library  addition  and  deletion  operations  are  accessible  only  by 
the  authorized  personnel  (root). 

Library  selection  option  is  provided  for  the  user  to  perform  his/her  operations  on 
the  desired  library.  After  selecting  the  library  name,  the  rest  of  the  operations  are  performed 
on  that  particular  library. 
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2.  Retrieval  Operations 

After  the  desired  library  is  selected,  a  main  menu  panel  provides  access  to  various 
retrieval  operations.  This  panel  also  provides  the  option  of  component  addition  to  the 
chosen  library. 

The  main  menu  panel  provides  options  to  conduct  a  PSDL  or  keyword  query.  A 
PSDL  query  file  can  be  selected  by  browsing  through  the  directories  and  it  is  used  to 
perform  the  query.  For  keyword  query,  available  keywords  are  displayed  and  the  user  can 
select  as  many  keywords  as  he/she  desires  to  conduct  the  query.  The  result  of  the  queries  is 
displayed  in  a  separate  panel  and  the  user  may  select  the  most  suitable  component  to  suit 
his/her  needs. 

This  panel  also  provides  the  named  look  up  of  components  under  two  categories: 
operators  and  types.  User  can  choose  a  component  by  browsing  through  the  existing 
components  although  this  would  not  be  an  efficient  way  of  retrieval  if  that  library  contains 
a  large  number  of  components. 

3.  Manipulation  Operations 

Following  the  retrieval  of  a  component,  various  operations  can  be  performed  for 
further  manipulation.  One  of  the  operations  is  to  view  the  files  stored  in  the  software  base. 
These  files  are  the  PSDL  specification,  the  implementation  specification,  and  the 
implementation  body  files. 

Other  available  operations  are  to  delete  the  selected  component  from  the  software 
base,  to  save  the  component  to  the  workplace,  to  print  the  specification  and  implementation 
files  of  the  component,  and  to  integrate  the  component  into  the  system  under  development. 

D.     CONCLUSIONS 

TAE  Plus  is  an  efficient  tool  to  design  and  implement  sophisticated  graphical  user 
interfaces.  It  is  also  suitable  for  hardware  platforms  that  CAPS  runs.  User  interfaces 
consistent  with  the  other  CAPS  tools  user  interfaces  can  easily  be  developed  by  using  TAE 
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Plus.  That  Ada  is  one  of  the  implementation  languages  of  this  tool  is  also  suitable,  given 
that  one  of  the  major  goals  is  to  implement  the  whole  CAPS  in  Ada. 

Evaluating  these  benefits  of  TAE  Plus,  the  decision  is  made  to  use  this  tool  to 
implement  the  software  base  graphical  user  interface.  The  developed  interface  is  a  mouse 
driven,  easy  to  use  graphical  user  interface  which  is  consistent  with  the  requirements  given 
in  section  5.  A.  On-line  help  facilities  are  also  included,  although  it  is  pretty  straight  forward 
to  use  the  system.  Various  panels  for  information,  warning  and  error  messages  are  also 
included. 

The  software  base  graphical  user  interface  user's  manual  is  given  in  Appendix  B, 
explaining  the  details  of  the  developed  system. 
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VI.  CONCLUSIONS  AND  FUTURE  RESEARCH 

A.  ACCOMPLISHMENTS 

Three  basic  tasks  are  accomplished  in  this  thesis  to  enhance  the  software  reuse  within 
the  CAPS. 

First,  the  software  base  system  first  described  in  [McDo91]  was  revised  and  modified 
to  accommodate  the  requirements  of  current  CAPS  system.  Major  changes  made  were  in 
parser  and  keyword  query  modules.  Parser  was  modified  according  to  the  requirements  of 
current  PSDL  specification  rules.  Keyword  query  module  was  changed  to  allow  multiple 
keywords  to  be  used  as  search  keys. 

Second,  an  integration  mechanism  has  been  designed  and  implemented  to  incorporate 
the  retrieved  components  into  CAPS.  An  integration  module  is  created  and  saved  to  the 
workplace  for  every  retrieved  component.  All  referencing,  renaming,  and  instantiation 
processes  are  encapsulated  in  this  module  according  to  the  requirements  of  the  prototyped 
system. 

Third,  a  complete  graphical  user  interface  has  been  designed  and  implemented  to 
demonstrate  and  manipulate  the  capabilities  of  the  software  base.  All  software  base 
operations  such  as  search,  retrieval,  and  integration  can  be  performed  through  the  software 
base  GUI. 

There  are  still  many  areas  that  can  be  improved  by  future  research.  The  following 
section  describes  those  areas  and  provides  recommendations  that  may  help  solve  some  of 
the  problems. 

B.  FUTURE  WORK 

1.     Providing  Components  For  Software  Base 

The  components  to  be  added  to  the  software  base  must  be  thoroughly  tested  to 
ensure  that  they  meet  their  specifications.  Testing  of  software  components  is  still  a 


44 


challenging  area  and  requires  further  research.  This  is  necessary  in  order  to  make  reusable 
software  libraries  more  successful. 

The  components  that  should  be  incorporated  to  the  CAPS  software  base  must  be 
specified  in  PSDL.  A  study  for  the  automation  of  this  process  can  be  found  in  [Seal92]. 
Application  of  this  study  to  some  of  the  existing  software  sources  such  as  Booch  library, 
RAPID  project,  and  Ada  software  repository  should  provide  plenty  of  good  quality 
software  components  to  be  utilized  by  the  software  base. 

2.  Integrating  Generic  Components 

Currently,  the  generic  parameter  values  of  an  integrated  component  is  supplied  by 
user.  This  process  can  be  automated  by  including  an  internal  matching/mapping 
mechanism  to  the  software  base.  One  example  of  this  process  is  the  employment  of  OBJ3 
specification  in  [Stei91].  Other  mechanisms  may  be  developed  that  perform  the  mapping 
of  these  parameters  and  matching  them  with  the  provided  values  for  generic  instantiation. 

3.  Ensuring  Consistency 

Updating  and  deleting  components  from  the  software  base  may  cause  system 
inconsistencies.  These  inconsistencies  may  result  from  the  interdependencies  of  the 
components  in  the  software  base  or  from  the  dependency  of  the  previously  developed 
prototypes  to  the  retrieved  components  from  the  software  base.  Currently,  software  base 
administrator  manages  the  consistency  of  the  system.  This  process  can  be  automated  by 
utilizing  a  version  control  schema. 

4.  Seperate  GUI  For  User  And  Administrator 

The  software  base  GUI  designed  and  implemented  in  this  thesis  demonstrates  the 
full  functionality  of  the  CAPS  software  base.  However,  an  ordinary  user  will  not  need  such 
functions  of  software  base  as  adding  and  deleting  software  libraries  and  components, 
updating  existing  components,  etc.  While  this  detailed  software  base  interface  is  utilized  by 
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system  administrator,  a  simpler  interface  may  be  designed,  emphasizing  only  those  aspects 
of  software  base  which  will  be  frequently  used  by  users. 
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APPENDIX  A  -  INTEGRATION  EXAMPLES 


In  this  appendix  various  examples  of  integration  of  components  are  given.  The 
component  chosen  as  an  example  is  the  partial  implementation  of  a  set  ADT.  Two  operators 
are  included  in  it  and  two  versions  of  the  same  component  is  provided  :  generic  and  non- 
generic. 

A.  INTEGRATING  A  COMPONENT  RETRIEVED  BY  NAMED  LOOKUP 

5.     Retrieving  a  Non-generic  Component 

a.    PSDL  Specification  of  Retrieved  Component 


type  set 
specification 

operator  empty 
specification 

input   si : set 

output   s:set 
end 

operator  add 
specification 

input    x:t, 
si : set 

output  so: set 
end 

keywords  set 
description  {  set  }  end 
implementation  ada  set_sb  end 
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b.    Proto.set.a 

with   set_sb; 

package  set_pkg  is 

procedure  empty  (  si  :  in  set; 

s   :  out  set 
renames  set_sb. empty ; 

procedure  add  (  x  :  in  t ; 

si:  in  set; 

so:  out  set  ) 
renames  set_sb.add; 

end  set_pkg; 

6.     Retrieving  a  Generic  Component 

a.    PSDL  Specification  of  Retrieved  Component 

type   set 

specification 

generic 

t :GENERIC_TYPE, 

operator  empty 
specification 

output  s:set 
end 

operator  add 
specification 

input    x:t, 
si : set 

output  so: set 
end 

keywords  set 
description  {  set  }  end 
implementation  ada  set_sb  end 
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b.    Proto.set.a 

with    set_sb; 

package    set_pkg    is 

package    tmp_set_pkg    is    new   set_sb    (    gen_p    ) ; 

procedure    empty    (    s    :    out    set    ) 
renames    tmp_set_pkg . empty ; 

procedure   add    (    x    :    in   gen_p; 

si    :    in    set; 

so  :  out  set  ) 
renames  tmp_set_pkg .add; 

end  set_pkg; 

B.  INTEGRATING  A  COMPONENT  RETRIEVED  BY  PSDL  QUERY 
1.  Retrieving  a  Non-generic  Component 

a.  PSDL  Specification  of  Retrieved  Component 

type  set 
specification 

operator  empty 
specification 

input   si: set 

output   s:set 
end 

operator  add 
specification 

input   x: integer, 
si : set 

output  so: set 
end 

keywords  set 
description  {  set  }  end 
implementation  ada  set_sb  end 
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b.  PSDL  Query 

type  integer_set 
specification 

operator  create 
specification 

input   in_set  :set 

output  out_set  :set 
end 

operator  put 
specification 

input   item   : integer, 

in_set  :set 
output  out_set:set 
end 
end 
implementation  ada  integer_set  end 

c.  Pro  to.  integer _set.a 

with   set_sb; 

package  integer_set_pkg  is 

procedure  create  (  inset    :  in  set; 

out_set  :  out  set 
renames  set_sb . empty ; 


procedure  put  (  item 

in_set 
out_set 

renames  set_sb.add; 


in  integer; 
in  set; 
out  set  ) 


end  integer_set_pkg; 
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2.  Retrieving  a  Generic  Component 

a.  PSDL  Specification  of  Retrieved  Component 

type    set 

specification 

generic 

t :GENERIC_TYPE, 

operator  empty 
specification 

output  s:set 
end 

operator  add 
specification 

input    x:t, 
si : set 

output  so: set 
end 

keywords  set 
description  {  set  }  end 
implementation  ada  set_sb  end 

b.  PSDL  Query 

type  int_set 
specification 

operator  create 

specification 

input   in_set  :set 
output  out_set  :set 

end 

operator  put 
specification 

input   item   : integer, 

in_set  :set 
output  out_set:set 
end 
end 
implementation  ada  int_set  end 
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c.  Proto.int_set.a 

with   set_sb; 

package  int_set_pkg  is 

package  tmp_int_set_pkg  is  new  set_sb ( integer ) ; 

procedure  create  (  inset    :  in  set; 

out_set  :  out  set  ) 
renames  tmp_int_set_pkg . empty ; 


procedure  put  (  item 

in_set 
out  set 


in  integer; 
in  set; 
out  set  ) 


renames  tmp_int_set_pkg . add; 


end  int_set_pkg; 


55 


APPENDIX  B  -  SOFTWARE  BASE 
GRAPHICAL  USER  INTERFACE  USER'S  MANUAL 

The  software  base  graphical  user  interface  is  implemented  by  using  Transportable 
Applications  Environment  (TAE)  Plus,  an  integrated  environment  for  developing  and 
running  contemporary  window  and  graphics  based  application  systems. 

The  Software  base  GUI  can  be  started  by  executing  the  command  softbase.exe,  by 
passing  two  command  line  parameters.  First  parameter  is  the  path  to  the  prototype  directory 
and  the  second  parameter  is  the  prototype  prefix,  which  is  required  by  the  software  base 
script  for  compilation.  Because  of  the  required  environment  variables,  it  should  be  invoked 
while  working  on  sun51  or  rxterm'ed  to  sun51.  This  requirement  is  due  to  the  current  Ontos 
libraries  being  on  sun51. 

The  terminology  used  in  this  appendix  is  consistent  with  TAE  Plus  documentation. 

A.    LIBRARY  FUNCTIONS 

Library  functions  panel  is  the  top  level  of  the  software  base  GUI  system.  It  provides 
three  kinds  of  functionality:  Library  Operations,  Quit,  and  Help. 


Library  Operations  : 
v  Library  Selection 

V  Library  Addition 

■Q  Library  Deletion 


Help 


Figure  B.l  -  Library  Functions  Panel 
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Library  Operations  option  provides  three  choices  which  are  Library  Selection,  i.e. 
selecting  the  library  that  is  going  to  be  used  throughout  the  software  base  manipulations 
(Adal,  Ada2,  C++,  etc.),  Library  Addition,  in  case  creation  of  a  new  library  is  desired,  and 
Library  Deletion,  if  the  deletion  of  an  existing  library  from  the  software  base  is  desired. 

'•'.-  cam     : 


Library  Operation*  : 
</  Library  Selection 

■j-  Library  Addition 

v  Library  Deletion 


Id 


Library  Selection   List 
Chooee  the  library 


ada 


:i 


Cancel 


OK 


Library  Addition 
Library  Name  :  j 


Role  Plla  Na 


Cancel 


OK 


Figure  B.2  -  Library  Functions  Panel  Connections 
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Library  Selection  panel  displays  the  existing  libraries  in  the  software  base.  Clicking 
one  of  the  libraries,  for  example  Ada,  results  in  all  the  operations  to  be  performed  on  that 
particular  library.  It  can  be  considered  as  a  library  domain  selector.  After  clicking  on  the 
OK  button,  Main  Menu  panel  is  displayed  to  perform  further  software  base  operations. 

Library  Addition  panel  is  provided  to  add  new  library  domains  into  the  software  base. 
User  keys  in  the  new  library  name  and  the  associated  rule  file  name.  Upon  clicking  on  the 
OK  button  a  new  library  is  created  and  displayed  in  the  library  selection  panel.  This  option 
is  provided  only  for  the  authorized  personnel  (root). 

Library  Deletion  panel  is  used  to  delete  a  library  from  the  software  base.  This  panel 
displays  the  existing  library  list.  Selecting  one  of  the  libraries  and  clicking  on  OK  button 
brings  a  warning  message.  Validating  the  operation  deletes  the  selected  library  and  all  of 
the  components  in  that  library  from  the  software  base.  This  option  is  provided  only  for  the 
authorized  personnel  (root). 

Quit  button  terminates  the  software  base  GUI. 

Clicking  on  Help  button  changes  the  mouse  cursor  into  a  '?'  mark.  Clicking  the  cursor 
on  the  desired  item  displays  a  help  window  about  that  item.  For  example,  clicking  on 
Library  Operations  brings  a  help  window  informing  about  the  functionality  of  each 
operation. 

B.    MAIN  MENU 

Main  Menu  panel  provides  the  basic  operations  of  software  base. 


_,; 

cans 

J    Cancel 

':■ 

Help 

\ 

Component 

Browse 

Query 

\ 

Figure  B.3  -  Main  Menu  Panel 
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These  operations,  implemented  as  pull  down  menu,  include  Component  Add/Update, 
Browse  Types/Operators,  and  Keyword/PSDL  Query. 

7.     Component  Add/Update 

Clicking  on  Component  Add/Update  brings  the  Input  File  Selection  panel. 


PSDL  F1U 


Input  File  Selection 
Imp.  Spec  F1U  Imp.  Body  Pila 


_bJ 


3 


ozcUmir 


<oxd«mlr 
Cuctl     ; 


oicUmlr 


OK 


Figure  B.4  -  Input  File  Selection  Panel 

Inputs  to  the  software  base  are  made  up  of  three  text  files.  The  PSDL 
specification,  the  implementation  specification,  and  the  implementation  body.  This  panel 
allows  the  selection  of  each  of  these  files. 

The  directory  box  displays  the  files  and  subdirectories  in  the  current  working 
directory.  Under  this  box,  the  directory  label  displays  the  name  of  the  current  directory. 
Clicking  on  a  directory  in  directory  box  will  change  to  that  directory  and  the  path  for  the 
new  directory  will  be  displayed  in  the  directory  label.  Clicking  on  a  file  will  select  that  file 
and  the  selected  file  will  be  displayed  in  the  file  label  box.  After  all  the  files  are  selected, 
clicking  on  OK  button  will  cause  the  input  files  to  be  processed. 

If  Component  Add  operation  is  invoked,  the  system  will  attempt  to  add  the 
component  to  the  software  base.  In  case  of  an  error,  an  error  message  will  be  displayed. 
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Otherwise,  the  panel  will  be  removed  and  Main  Menu  panel  will  be  displayed  indicating  a 
successful  addition. 

If  Component  Update  operation  is  invoked,  the  new  PSDL  specification  and 
implementation  files  will  replace  those  that  are  currently  in  the  software  base. 

Cancel  button  will  cause  the  input  operation  to  terminate. 

8.     Browse  Types/Operators 

Clicking  on  Browse  Types/Operators  brings  the  Component  Selection  panel. 


Component   Selection 

Component  Nun* 

Description 

ki 

% 

j 

$ 

$ 

i 

* 

i 

L 

::  * 

Cancel 


Vl« 


Select 


Figure  B.5  -  Component  Selection  Panel 

Depending  on  the  selection,  this  panel  displays  a  list  of  all  the  operator  or  type 
components  in  the  software  base  and  a  one  line  description  of  each  component.  These 
components  are  ordered  alphabetically. 

Selecting  a  component  and  clicking  on  View  button  will  bring  up  a  view  of  that 
components  PSDL  specification.  See  section  B.C  for  details  on  using  View  panel. 

Selecting  a  component  and  clicking  on  Select  button  will  bring  up  a  menu  of  more 
detailed  operations  on  the  selected  component.  See  section  B.D  for  details  about  this 
option. 

Cancel  button  will  cause  the  panel  to  disappear  and  brings  up  the  Main  Menu 
panel. 
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9.     Keyword/PSDL  Query 

a.     Keyword  Query 

Clicking  on  keyword  query  brings  up  the  Keyword  Selection  panel. 


BjjjWv 


Keyword   Selection   Menu 
Keyword*  Available  Keyword*  Selected 


J:* 


Cancel 


OK 


Figure  B.6  -  Keyword  Selection  panel 

This  panel  allows  the  selection  of  keywords  for  a  keyword  search  of  the 
software  base.  Existing  keywords  in  the  software  base  are  listed  in  the  left  box.  Clicking  on 
a  keyword  will  add  it  to  the  Keyword  Selected  box.  Once  the  desired  keywords  are  selected, 
pushing  the  OK  button  will  start  the  search.  The  resulting  list  of  the  components  found  in 
software  base  will  be  displayed  in  the  Component  Selection  panel  (See  B.B.2). 

Pushing  the  cancel  button  will  terminate  the  keyword  query. 

b.    PSDL  Query 

Clicking  on  PSDL  query  will  bring  up  the  Query  File  Selection  panel. 

Input  to  the  software  base  is  a  PSDL  specification  file  to  conduct  the  query. 
This  panel  allows  the  selection  of  PSDL  file.  The  directory  box  displays  the  files  and 
subdirectories  in  the  current  working  directory.  Under  this  box,  the  directory  label  displays 
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the  name  of  the  current  directory.  Clicking  on  a  directory  in  directory  box  will  change  to 
that  directory  and  the  path  for  the  new  directory  will  be  displayed  in  the  directory  label. 
Clicking  on  a  PSDL  file  will  select  that  file  and  the  selected  file  will  be  displayed  in  the  file 
label  box.  After  the  query  PSDL  file  is  selected,  clicking  on  OK  button  will  cause  the  query 
to  be  processed.  If  any  components  were  found  that  match  the  query  specification  then  the 
Component  Selection  panel  (See  B.B.2)  will  be  displayed  providing  a  list  of  matching 
components.  Otherwise,  a  message  will  be  displayed  stating  that  no  component  is  found. 


~4                      cap*                   .   \.\ 

Query   File  Selection 

PSDLPU. 

' — ' 



*i : 

[■{ 

$ 

i 

■  > 

$ 

|| 

:  *    : 

'  \    : 

s 

oxdemir 

Cancal 

OK 

Figure  B.7  -  Query  File  Selection  Panel 

C.    VIEW  COMPONENT 

After  a  component  is  selected  from  Component  Selection  panel,  one  of  the  operations 
that  can  be  performed  on  the  component  is  to  view  the  files  stored  in  the  software  base. 
These  files  are  the  PSDL  specification,  the  implementation  specification,  and  the 
implementation  body  files. 

Clicking  on  View  button  on  the  Component  Selection  panel  brings  up  the  PSDL 
Specification  Viewing  panel.  If  no  component  is  selected  a  warning  message  is  displayed. 
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Figure  B.8  -  PSDL  Specification  Viewing  Panel 

This  panel  displays  the  PSDL  specification  for  a  given  component.  The  name  of  the 
file  displayed  appears  on  the  top  of  the  display  box. 

By  clicking  on  the  View  Spec  button,  implementation  specification  of  the  selected 
component  can  be  viewed  in  a  similar  fashion,  and  consequently  the  implementation  body 
file.  Because  the  viewing  panels  are  not  removed,  all  three  files  can  be  viewed 
simultaneously.  To  remove  the  panels,  Cancel  buttons  should  be  pushed. 

As  implementation  specification  and  implementation  body  view  panels  are  very 
similar  to  this  panel,  they  are  not  included  in  the  figures. 

D.    SELECT  COMPONENT 

Clicking  on  Select  button  on  the  Component  Selection  panel  brings  up  the  Select  panel. 
If  no  component  is  selected  a  warning  message  is  displayed. 
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Selected    ^    some  component 


Delete 


Save  as 


Print 


Integrate 


Help 


Figure  B.9  -  Select  Panel 
This  panel  enables  user  to  perform  various  operations  on  the  selected  component. 
Clicking  on  Delete  button  causes  the  component  to  be  deleted  from  the  software  base 
after  displaying  a  warning  message. 

Clicking  on  Save  as  button  brings  up  the  Save  Component  panel. 


S*v»  Component  : 
component 

i 

i 

| 

toadamir 

C»nc«] 

OK 

Figure  B.10  -  Save  Component  Panel 

This  panel  enables  the  user  to  save  the  selected  component  in  any  workplace.  All  three 
files,  PSDL  specification,  implementation  specification  and  implementation  body  files,  are 
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saved  into  the  specified  directory.  Default  is  the  prototype  directory  and  path  to  this 
directory  is  obtained  from  the  first  argument  of  user  interface  executable. 

Clicking  on  Print  button  displays  three  options:  printing  the  PSDL  file,  printing  the 
implementation  specification,  or  printing  the  implementation  body.  Selected  files  are 
printed  through  the  default  printer. 

Clicking  on  Cancel  button  terminates  the  panel. 

Clicking  on  Help  button  changes  the  mouse  cursor  into  a  '?'  mark.  Clicking  the  cursor 
on  the  desired  item  displays  a  help  window  about  that  item. 

Integrate  button  is  used  to  incorporate  the  selected  component  into  the  system. 
Pushing  this  button  brings  up  the  Integration  panel.  The  integrate  button  of  this  panel 
causes  the  integration  tool  to  be  enabled  and  resulting  integration  module  (the  package  the 
code  is  encapsulated)  is  saved  into  the  prototyping  directory  together  with  the  retrieved 
component.  Depending  on  the  retrieved  component  being  generic  or  non-generic,  an 
information  message  is  displayed  in  the  box. 


File  Nwe 


C*BC«I 


lnt*«nt«  Integrate/Quit 


: 


J 


Figure  B.ll  -  Integration  Panel 

The  only  difference  between  Integrate  and  Integrate/ Quit  button  is  while  first  button 
returns  back  to  the  Main  Menu  panel,  the  latter  quits  the  program  after  integration  process. 
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APPENDIX  C  -  SOURCE  CODE  FOR 
INTEGRATION  TOOL 


A.     PSDL_LEX.L 

__    ***    pi]_e 
--    ***    Author 


***    Date 


psdl_lex . 1 
Dogan  Ozdemir 
September  1992 


.  _  ****** 


************************************************************* 


% START 

Digit 

Int 

Letter 

Alpha 

Blank 

Text 

StrLit 

Quote 

A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

0 

P 

Q 

R 

S 

T 

U 

V 

w 

X 

Y 

Z 

%% 

{AHDHA 

{AHXHI 


I DENT  Z 
0-9] 
Digit}+ 
a-zA-Z_] 

{Letter} I {Digit} 
\t\n] 

A  "  \  \  ]  I  [  \  \  ]  [ "  \  \  ] 


aA 
bB 
cC 
dD 
eE 
fF 
gG 
hH 
il 

DJ 
kK 
IL 
mM 
nN 
oO 
pP 

qQ 

rR 
sS 

tT 
uU 
vV 
wW 
xX 
yY 
zZ 


{0}{M}{S} 


{B}{Y}{Blank}+{A}{L}{L} 


{ ENTER ( Z) ; return (ADA_TOKEN) ;  } 
{ENTER (Z) ; return (AXIOMS_TOKEN) ;  } 
{ENTER (Z) ; return (BY_ALL_TOKEN) ;  } 
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{B}{Y} 

{Bla 

{C}{0} 

{N}  { 

(C)(0) 

{N}  { 

{D}{A} 

(T}  { 

{D}(E} 

{S}  ( 

{E}{D} 

(G)  { 

(E}{N) 

{D} 

{E}{X} 

( C }  { 

{E}{X} 

(C)  ( 

(F}{I) 

{N}  { 

{W}{I} 

{T}  { 

(G)(E) 

{N}  { 

(G)(R) 

{A}  { 

(H)(0) 

{U}  { 

(D(F) 

(I) {M} 

{P}  { 

( ENTER 

(Z)  ; 

{I}{N} 

{1}  { 

{IHN} 

{P}  { 

{K}{E} 

{Y}  { 

{M} {A} 

{X}  { 

{E}{X} 

{E}  { 

{THI} 

{M}  { 

{R}{E} 

(S}  { 

{M}{I} 

(C)  ( 

{ ENTER 

(Z)  ; 

{M}{I} 

{N}  { 

(C)(A) 

(L)  { 

{ ENTER 

(Z)  ; 

{M}{I} 

{N}  1 

(M}{S} 

1  {M} 

{0}{P} 

{E}  { 

(0}{U) 

{T}  { 

{P}{E} 

{R}  { 

{R}{E} 

(Q}{ 

{RHE} 

(S)  ( 

{S}{E} 

(C)  1 

{S}{P} 

{E}  { 

{ ENTER 

(Z)  ; 

(SHT} 

{A}  { 

{S}{T} 

{A}  { 

{S}{T} 

{0}  { 

{S}{T} 

(R)  { 

{T}{I} 

{M}  { 

(THR} 

{1}  { 

{T}{Y} 

{P}  { 

{V}{E} 

{R}  { 

Blank}+{S} {0} {M} {E}   {ENTER(Z) ; return (BY_SOME_TOKEN) ; } 
T}{R}{0}{L}         (ENTER ( Z) ; return (CONTROL_TOKEN) ;  } 
S}{T}{R}{A}{I}{N}{T}{S}  {ENTER (Z) ; return ( CONSTRAINTS_TOKEN) 
A}  {ENTER ( Z) ; return (DATA_TOKEN) ;  } 

C}(R}{I}{P}{T}{I}{0}{N}  {ENTER (Z) ; return ( DESCRIPTION_TOKEN) 
E}  {ENTER ( Z) ; return (EDGE_TOKEN) ;  } 

{ENTER (Z) ; return (END_TOKEN) ;  } 
E} {P} {T} {1} {0} {N} {S}  {ENTER ( Z) ; return ( EXCEPTIONS_TOKEN) ;  } 


EHPHTHIHOHN} 

I}{S}{H} 

H}{I}{N} 

E}{R}{I}{C} 

P}{H} 

R}{S} 


{ ENTER ( Z ) 
{ ENTER ( Z ) 
{ ENTER ( Z ) 
{ ENTER ( Z ) 
{ENTER (Z) 
{ ENTER ( Z ) 
{ ENTER ( Z ) 


return (EXCEPTION_TOKEN; } 
return (FINISH_TOKEN) ;  } 
return (WITHIN_TOKEN) ;  } 
return ( GENERIC_TOKEN) ;  } 
return (GRAPH_TOKEN) ;  } 


return 
return 


HOURS_TOKEN) ;  } 
IF_TOKEN) ;  } 


LHEHMHEHNHTHAHTHIHOHN} 


return ( IMPLEMENTATION_TOKEN 
THIHAHL}  {L}{Y}  {ENTER(Z) 
U}{T} 
WHOHRHDHS} 

IHMHUHM} 
C}{U}{T}{I}{0}{N} 
E} 
P){0}{N}{S}{E} 


)  ;  } 
return ( INITIALLY_TOKEN) 
return { INPUT_TOKEN) ;  } 
return (KEYWORDS_TOKEN 
return (MAXIMUMJTOKEN 
return (EXECUTION_TOKEN 
return ( TIME_TOKEN) ;  } 
return (RESPONSE_TOKEN) ; } 


} 


n ;} 

•)  ;  } 


)  ;  } 


{ ENTER ( Z ) 
{ ENTER ( Z ) 
{ ENTER ( Z ) 
{ ENTER ( Z ) 
{ ENTER ( Z ) 
{ ENTER ( Z ) 

RHOHSHEHC}  KMHIHCHrhohshehchohnhdhs} 

return (MICROSEC_TOKEN) ;  } 

I}{M}{U}{M}        {ENTER (Z) ; return (MINIMUM_TOKEN) ;  } 

LHIHNHG}  {Blank}  + { P}{E}{R}{ I }{0}{D} 

return ( CALL_PERIOD_TOKEN)  ;  } 

{M} {1} {N} {U} {T} {E} {S} {ENTER(Z) ; return (MIN_TOKEN) ; } 

{1} {L} {L} {1} {S} {E} (C) (0) {N} {D} {S}  {ENTER(Z) ; return (MS_TOKEN) ; } 

R} {A} {T} {0} {R}     {ENTER(Z) ; return (OPERATOR_TOKEN) ; } 

P}{U}{T}  {ENTER ( Z) ; return (OUTPUT_TOKEN) ;  } 

I}{0}{D}  {ENTER ( Z) ; return (PERIOD_TOKEN) ;  } 

U} {1} {R} {E} {D} {Blank}+{B} {Y}  {ENTER(Z) ; return (REQ_BY_TOKEN) ;  } 

E} {T} {Blank}+{T} {1} {M} {E} {R}  {ENTER ( Z) ; return (RESET_TOKEN) ;  } 

{S} {E} {C} {0} {N} {D} (£)     {ENTER(Z) ; return ( SEC_TOKEN) ; } 

C}{I}{F}{I}{C}{A}{T}{I}{0}{N} 

return ( SPECIFICATION_TOKEN) ;  } 

R} {T} {Blank}+{T} {1} {M} {E} {R}  {ENTER (Z) ; return (START_TOKEN) ;  } 

THEHS}  {ENTER  (  Z)  ;  return  (STATES_TOKEN)  ;  } 

P} {Blank}+{T} {1} {M} {E} {R}  {ENTER ( Z) ; return (STOP_TOKEN) ;  } 


EHAHM} 

EHR} 

G}{G}{E}{R}{E}{D} 

E} 

T}{E}{X} 


{ENTER (Z) ; return (STREAM_TOKEN) ;  } 
{ENTER (Z) ; return (TIMER_TOKEN) ;  } 
{ ENTER ( Z ) ; return ( TRIGGERED_TOKEN 
{ENTER (Z) ; return (TYPE_TOKEN) ;  } 
{ENTER (Z) ; return (VERTEX_TOKEN) ;  } 


)  ;  } 


"and" I "AND" 
"or" I "OR" 
"xor" I "XOR" 
"  >= " 


{ ENTER ( Z ) 
{ ENTER ( Z ) 
{ ENTER ( Z ) 
{ ENTER ( Z ) 


f);  } 


} 


; return ( AND_TOKEN 

; return (OR_TOKEN) 

; return (XOR_TOKEN) ;  } 

; return (GREATER_THAN_OR_EQUAL 


)  ;  } 
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<  = 


/" 


[" 


I " 
>" 

<  " 

mod" I "MOD" 

rem" I "REM" 

**" I "EXP" I "exp" 

abs" I "ABS" 

not" I "NOT" 
{THRHUHE} 
{F}{A}{L}{S}{E} 
<IDENT>\ ' 
{Letter} {Alpha}* 


{ ENTER 
{ ENTER 
{ ENTER 
{ ENTER 
{ENTER 
{ENTER 
{ ENTER 
{ENTER 
{ENTER 
{ENTER 
{ENTER 
{ ENTER 
{ ENTER 
{ ENTER 
{ ENTER 
{ENTER 
{ ENTER 
{ ENTER 
{ ENTER 
{ ENTER 
{ ENTER 
{ ENTER 
{ ENTER 
{ ENTER 
{ ENTER 
{ENTER 
{ ENTER 
{ ENTER 


(Z) 


(Z) 


( 

(Z) 

(Z) 

( 


return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 


LESS_THAN_OR_EQUAL) ; 
INEQUALITY) ;  } 
ARROW) ;  } 


MODJTOKEN) 

REM_TOKEN) 

EXP_TOKEN) 

ABS_TOKEN) 

NOT_TOKEN) 

TRUE) ;  } 

FALSE) ;  } 

'  "  ) ;  } 


(I DENT) 


strlen (psdl_lex_df a .yytext , length) ; 


the_id_token ( 1 .. length)  :=  psdl_lex_df a .yytext ; 


{ ENTER ( Z ) 
{ ENTER ( Z ) 
{ ENTER ( Z ) 
{ ENTER ( Z ) 
{NULL; } 
{NULL;}  - 


return ( IDENTIFIER) ;  } 
{Quote} {StrLit}* {Quote} 
(Int) 

{Int}" ."{Int} 
" { " { Text } *  "  }  " 
[\n] 
[  \t] 
%% 

with  Psdl_Tokens, component_aux_pkg ; 
use  Psdl_Tokens , component_aux_pkg ; 

package  Psdl_Lex  is 

function  yylex  return  token; 
end  Psdl_Lex; 

package  body  Psdl_Lex  is 

## 

end  Psdl_Lex; 


return (STRING_LITERAL) ; 
return ( INTEGER_LITERAL) 
return (REAL_LITERAL) ;  } 
return (TEXTJTOKEN) ;  } 

■ignore  spaces  and  tabs 
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B.   PSDL.Y 


psdl .y 

Dogan  Ozdemir 

September  1992 


***  File 

***  Author 

***  Date 

**************************************************  +  ********•*■***•***** 


%token  '  (  '  ' )  '  '  [  '  ' ]  '  '  :  '  '  , '  '  I  ' 

%token  ARROW 

%token  TRUE  FALSE 

%token  ADA_TOKEN  AXIOMS_TOKEN 

%token  BY_ALL_TOKEN  REQ_BY_TOKEN  BY_SOME_TOKEN 

%token  CALL_PERIOD_TOKEN  CONTROL_TOKEN 

%token  CONSTRAINTS_TOKEN 

%token  DESCRIPTION_TOKEN  DATA_TOKEN 

%token  END_TOKEN  EDGE_TOKEN  EXCEPTION_TOKEN 

%token  EXCEPTIONS_TOKEN  EXECUTION_TOKEN 

%token  FINISH_TOKEN 

%token  GENERIC_TOKEN  GRAPH_TOKEN 

%token  HOURSJTOKEN 

%token  IF_TOKEN  IMPLEMENT AT I ON_TOKEN 

%token  INPUT_TOKEN  INITIALLY_TOKEN 

% token  KEYWORDS_TOKEN 

%token  MAXIMUM_TOKEN  MINIMUM_TOKEN 

%token  MICROSEC_TOKEN  MIN_TOKEN  MS_TOKEN 

% token  MOD_TOKEN  NOT_TOKEN 

%token  OPERATOR_TOKEN  OR_TOKEN 

%token  OUTPUT_TOKEN 

%token  PERIOD_TOKEN 

%token  RESET_TOKEN  RESPONSE_TOKEN 

%token  SPECIFICATION_TOKEN  SEC_TOKEN 

%token  START_TOKEN  STATES_TOKEN  STOP_TOKEN 

%token  STREAM_TOKEN 

%token  TIME_TOKEN  TIMER_TOKEN 

%token  TYPE_TOKEN  TRIGGEREDJTOKEN 

% token  VERTEX_TOKEN 

% token  WITHIN_TOKEN 

%token  TEXT_TOKEN 

%token  IDENTIFIER 

%token  STRING_LITERAL 

%token  INTEGER_LITERAL 

%token  REAL_LITERAL 

--operator  precedences 

%left  AND_TOKEN  OR_TOKEN  XOR_TOKEN  LOGICAL_OPERATOR 

%left  '<'  '>'  '='  GREATER_THAN_OR_EQUAL  LESS_THAN_OR_EQUAL  INEQUALITY 

RELATIONAL_OPERATOR 

%left  '+'  '-'  '&'  BINARY_ADDING_OPERATOR 

%left  UNARY_ADDING_OPERATOR 

%left  ' *■  '/'  MOD_TOKEN  REM_TOKEN  MULTIPLYING_OPERATOR 

%left  EXP_TOKEN  ABS_TOKEN  NOT_TOKEN  HIGHEST_PRECEDENCE_OPERATOR 
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%start  start_symbol 

{ 

subtype  yystype  is  integer; 

} 


%% 

start_symbol 


psdl 


component 


psdl 


psdl 
component 


data_type 

I 

operator 


data_type : 

TYPE_TOKEN 

{ 

is_adt  : =True ; 

} 

IDENTIFIER 

{ 

null; 
} 
type_spec  type_impl 

type_spec : 

SPECIFICATION_TOKEN  optional_generic_param 
optional_type_decl 

op_spec_list  functionality  END_TOKEN 

optional_generic_param: 

GENERIC  TOKEN 

—  1 

{ 

is_generic  :=  True; 

gen_par  :=  True; 
} 
list_of_type_decl 
I 

optional_type_decl : 

list_of_type_decl 
I 

op_spec_list : 

op_spec_list 
OPERATOR  TOKEN 
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operator : 


IDENTIFIER 
{ 

tmp_op_name ( 1 . . length) : =the_id_token ( 1 . . length; ■ 
len_name : =length; 
} 
operator_spec 

{ 
if  is_adt  then 

component_aux_pkg . Put_adt_op 
( tmp_op_name , len_name, has_inputs , has_outputs , adt_op_ptr ) ; 
has_inputs:=  False; 
has_outputs : =  False; 
in_par : =False  ; 
out_par : =False ; 
end  if; 
} 
I 


OPERATOR_TOKEN 
{ 

is_operator  :=  True; 

} 

IDENTIFIER 

{ 


nul  1 ; 

} 

operator_spec  operator_impl 

operator_spec : 

SPECIFICATION_TOKEN 
interface 
functionality 
END  TOKEN 


interface : 


attribute 


interface  attribute  reqmts_trace 


GENERIC_TOKEN 

{ 

is_generic  :=  True; 

gen_par  : =  True ; 

} 

lis  t_o  f _type_dec 1 

I 

INPUTJTOKEN 

{ 

has_in_param  :=  True; 
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has_inputs    :=  True; 
in_par  :=  True; 
gen_par  :=  False; 
} 

1 i  s  t_o f _type_dec 1 
I 

OUTPUT_TOKEN 
( 

has_out_param  :  =  True; 

has_outputs    :=  True; 

in_par  :=  False; 

out_par  :=  True; 

gen_par  :=  False; 
} 

list_of_type_decl 
I 

STATES_TOKEN 
list_of_type_decl 
INITIALLY_TOKEN 
initial_expression_list 
I 

EXC  E  PT I ONS_TOKEN 
id_list 
I 
MAXIMUM_TOKEN  EXECUTIONJTOKEN  TIME_TOKEN  time 

list_of_type_decl : 

list_of_type_decl  ' , '  type_decl 


type_decl 


type_decl : 


id_list 
{ 

if  gen_par  then 

if  the_id_token(l. .length)  =  "BASE_TYPE"  or 
the_id_token ( 1 .. length)  =  "base_type"  then 
null  ; 
else 

component_aux_pkg . Put_gen_parameter ( the_id_token , 

"  ", length, 1 , gen_par_ptr) ; 
end  i  f ; 
end  if; 

if  in_par  then 
if  out_par  then 

null; 
else 
component_aux_pkg . Put_in_parameter ( the_id_token, length, in_par_ptr) ; 
end  if; 
end  if; 
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if  out_par  then 
component_aux_pkg . Put_out_parameter ( the_id_token, length, out_par_ptr ) ; 
end  if; 
} 

type_name 
{ 

if  in_par  then 
if  out_par  then 

null; 
else 

component_aux_pkg . Put_in_parameter_val ( the_id_token , 

length, in_par_val_ptr ) ; 
end  if; 
end  if; 

if  out_par  then 

component_aux_pkg . Put_out_parameter_val ( the_id_token, 

length, out_par_val_ptr ) ; 
end  if; 
} 


type_name 


id  list 


reqmts_trace 


IDENTIFIER 

1  [' 

lis  t_o  f _type_dec 1 

']  ' 

I 

IDENTIFIER 


id_list 

i    I 

IDENTIFIER 

I 

IDENTIFIER 

REQ_BY_TOKEN  id_list 


functionality : 

keywords  inf ormal_desc  formal_desc 

keywords : 

KEYWORDS_TOKEN 
{ 

out_par  :=  False; 

gen_par  :=  False; --in  case  no  in/out  parameters 
null; 
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} 

id_list 
I 

informal_desc : 

DESCRIPTION  TOKEN  TEXT  TOKEN 


formal_desc : 

AXIOMS  TOKEN  TEXT  TOKEN 


type_impl : 

IMPLEMENTATION_TOKEN  ADA_TOKEN  IDENTIFIER 
{ 

withname . name ( 1 . . length) : =the_id_token ( 1 . . length) ; 
withname . len : =length; 
} 

END_TOKEN 
I 
IMPLEMENT  AT  I  ON_TOKEN  type_name  op_impl_list  END_TOKEN 

op_impl_list : 

op_impl_list  OPERATOR_TOKEN  IDENTIFIER  operator_impl 
I 

/ 

operator_impl : 

IMPLEMENT AT I ON_TOKEN  ADA_TOKEN  IDENTIFIER 
{ 

withname . name ( 1 . .length) : =the_id_token ( 1 . .length) ; 
withname . len : =length; 
} 

END_TOKEN 
I 
IMPLEMENTATION_TOKEN  psdl_impl  END_TOKEN 

psdl_impl : 

data_f low_diagram  streams  timers  control_constraints 
inf ormal_desc 

data_f low_diagram: 

GRAPH_TOKEN  vertex_list  edge_list 

vertex_list : 

vertex_list  VERTEX_TOKEN  op_id  optional_time 


edge_list : 

edge_list  EDGE_TOKEN  IDENTIFIER 
optional_time  op_id  ARROW  op_id 
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op_id: 

IDENTIFIER  opt_arg 

# 
opt_arg : 

'  ( '  optional_id_list 

' I '  optional_id_list 


optional_id_list : 

id  list 


optional_time : 

1 : '  time 


streams : 

DATA_TOKEN  STREAM_TOKEN  list_of_type_decl 


timers : 

TIMER_TOKEN  id_list 
I 

control_constraints : 

CONTROL_TOKEN  CONSTRAINTS_TOKEN  constraints 

constraints : 

constraints  OPERATOR_TOKEN  IDENTIFIER 
opt_trigger  opt_period  opt_f inish_within 
opt_mcp  opt_mrt  constraint_options 
I 

OPERATOR_TOKEN  IDENTIFIER 

opt_trigger  opt_period  opt_f inish_within 
opt_mcp  opt_mrt 

constraint_options : 

constraint_options  OUTPUT_TOKEN  id_list  IF_TOKEN 
expression  reqmts_trace 

I 

constraint_options  EXCEPTION_TOKEN  IDENTIFIER 

opt_if_predicate  reqmts_trace 

I 

constraint_options  timer_op  IDENTIFIER 

opt_if_predicate  reqmts_trace 

I 


opt_trigger : 


TRIGGEREDJTOKEN  trigger  opt_if_predicate  reqmts_trace 
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trigger : 

BY_ALL_TOKEN  id_list 
I 
BY  SOME  TOKEN  id  list 


opt_period : 

PERIOD_TOKEN  time  reqmts_trace 
I 

opt_f inish_within : 

FINISH_TOKEN  WITHIN_TOKEN  time  reqmts_trace 


opt_mcp : 

MINIMUM_TOKEN  CALL_PERIOD_TOKEN  time  reqmts_trace 


opt_mrt : 

max_resp_time  time  reqmts_trace 


max_resp_t  ime : 

MAXIMUM_TOKEN  RESPONSEJTOKEN  TIME_TOKEN 

/ 

timer_op : 

RESET_TOKEN 
I 

START_TOKEN 
I 
STOP_TOKEN 

opt_if_predicate : 

IF_TOKEN  expression 


initial_expression_list : 

initial_expression_list  ' , '  initial_expression 

I 

initial_expression 

initial_expression : 
TRUE 

I 
FALSE 

I 
INTEGER_LITERAL 

I 
REAL  LITERAL 
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STRING_LITERAL 

I 

IDENTIFIER 

I 

type_name  ' . '  IDENTIFIER 

I 

type_name  ' . '  IDENTIFIER  ' ( '  initial_expression_list  ' ) ' 

I 

' ( '  initial_expression_list  ' ) ' 

I 

initial_expression  log_op  initial_expression   %prec 
logical_operator 

I 

initial_expression  rel_op  initial_expression   %prec 
relational_operator 

I 

'-'  initial_expression    %prec  unary_adding_operator 

I 

'+'  initial_expression    %prec  unary _adding_operator 

I 

initial_expression  bin_add_op  initial_expression   %prec 
multiplying_operator 

I 

initial_expression  bin_mul_op  initial_expression   %prec 
multiplying_operator 

I 

initial_expression  EXP_TOKEN  initial_expression    %prec 
highest_precedence_operator 

I 

NOT_TOKEN  init ial_expression   %prec 
highest_precedence_operator 

I 

ABS_TOKEN  initial_expression   %prec 
highest_precedence_operator 


log_op : 


rel_op 


AND_TOKEN 
I 

OR_TOKEN 
I 
XOR  TOKEN 


'  <  '  I  '>•  |  '='  |  GREATER_THAN_OR_EQUAL 
I 
LESS_THAN_OR_EQUAL  I  INEQUALITY 


'&' 


bin_add_op : 

'  +  '  |  "-' 

/ 

bin_mul_op : 
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time 


time  number: 


'  * '   I   ' / '   I  MOD_TOKEN  I  REM_TOKEN 

time_number  MICROSEC_TOKEN 

I 

time_number  MS_TOKEN 

I 

time_number  SEC_TOKEN 

I 

time_number  MIN_TOKEN 

I 

time_number  HOURS_TOKEN 

/ 

INTEGER  LITERAL 


expression_list : 

expression_list  ' , '  expression 

I 

expression 

expression : 

TRUE  I  FALSE  I  INTEGER_LITERAL  I  time  I  REAL_LITERAL 

I  STRING_LITERAL  I  IDENTIFIER 

I  type_name  ' . '  IDENTIFIER 

I  type_name  ' . '  IDENTIFIER  ' ( '  expression_list  ' ) ' 

I  ' ( '  expression_list  ! ) ' 

I  expression  log_op  expression   %prec  logical_operator 

I  expression  rel_op  expression   %prec  relational_operator 

I  '-'  expression   %prec  unary _adding_operator 
I  '+'  expression   %prec  unary _adding_operator 

I  expression  bin_add_op  expression  %prec 
unary _adding_ope rat or 

I  expression  bin_mul_op  expression  %prec 
multiplying_operator 

I  expression  EXP_TOKEN  expression   %prec 
highest_precedence_operator 

I  NOT_TOKEN  expression   %prec  highest_precedence_operator 

I  ABS_TOKEN  expression   %prec  highest_precedence_operator 


%% 

with  Text_io, psdl_tokens , psdl_goto, psdl_shif t_reduce , psdl_lex, 

component_aux_pkg ; 
use  Text_io, psdl_tokens , psdl_goto, psdl_shif t_reduce, psdl_lex, 
component_aux_pkg ; 


package  component_parser  is 
procedure  Yyparse; 
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echo  :  boolean  :=  false; 

number_of_errors  :  Natural  :=  0  ; 


in_par 

out_par 

gen_par 

has_inputs 

has_outputs 

tmp_op_name 

len  name 


Boolean : =False; 
Boolean : =False; 
Boolean : =False; 
Boolean : =False; 
Boolean : =False; 
String (1 .  .30)  ; 
Integer : =0 ; 


end  component_parser ; 

package  body  component_parser  is 

procedure  Yyerrorfs  :  in  string  :=  "syntax  error")  is 
begin 

number_of_errors  :=  number_of_errors  +  1; 

put  (■***  -); 

put_line ( s ) ; 
end  Yy error ; 

*#%procedure_parse 

end  component_parser ; 
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C.  QUERYLEX.L 


*  *  *  p- 

.le        :  query_lex.l 

--  ***  Author      :  Dogan  Ozdemir 

--  ***  Date        :  September  1992 

****** 

r************************* 

%START  IDENT  Z 

Digit 

0-9] 

Int      ( 

Digit }+ 

Letter 

a-zA-Z_] 

Alpha 

{Letter} 1 {Digit} ) 

Blank 

\t\n] 

Text 

A{}] 

StrLit 

A  "  \  \  ]  1  [  \  \  ]  [ "  \  \  ] 

Quote 

"] 

A 

aA] 

B         | 

bB] 

c 

cC] 

D 

dD] 

E 

eE] 

F 

fF] 

G 

gG] 

H 

hH] 

I 

il] 

J 

JJ] 

K 

kK] 

L 

IL] 

M 

mM] 

N 

nN] 

0 

oO] 

P 

pP] 

Q       1 

qQ] 

R 

rR] 

S 

sS] 

T 

tT] 

U 

uU] 

V 

vV] 

w 

wW] 

X 

.xX] 

Y 

:yY] 

Z 

[zZ] 

%% 

■********•*****************+******* 


{A}{D}{A}  (ENTER(Z) 

{AHXHIHOHMHS}  {ENTER(Z) 

{B} {Y} {Blank} + {A} {L} {L}  {ENTER (Z) 

{B} {Y} {Blank}+{S} {0} {M} {E}  {ENTER(Z) 

{C}{0}{N}{T}{R}{0}{L}  {ENTER(Z) 


return (ADA_TOKEN) ;  } 
return (AXIOMS_TOKEN) ;  } 
return (BY_ALL_TOKEN) ;  } 
return ( BY_SOME_TOKEN ) ; } 
return ( CONTROL_TOKEN) ;  } 


{C} {0} {N} {S} {T} {R} {A} {1} {N} {T} {S}  {ENTER(Z) ; return (CONSTRAINTS_TOKEN) ;  } 
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<D}{A 

{D}{E 

{E}{D 

{E}{N 

{E}{X 

{EHX 

{F}{I 

{W}{I 

{G}{E 

{G}{R 

<H}{0 

(I}{F 

{I)(M 

{ENTER 

{I}{N 

{I}{N 

{K}{E 

{M}{A 

{E}{X 

{T}{I 

{RHE 

{M}{I 

{ ENTER 

(M}{I 

{CHA 

{ ENTER 

{M}{I 

{ ENTER 

{MHS 

} 

{0}{P 

{0}{U 

{PHE 

(R}{E 

(R}(E 

(S}{E 

{S}{P 

{ ENTER 

{S}{T 

{S}{T 

{S}{T 

{SHT 

{T}{I 

{T}{R 

{T}{Y 

{V}{E 

"and" 

"or"  I 

"xor " 
■I  ^  _  ii 

"  <  = " 


A} 

C}{R}{I}{P}{T 

E} 

{ ENTER ( Z ) 
E} {P} {T} {1} {0} {N} (S}  {ENTER 
E} {P} {T} {1} {0} {N}  {ENTER(Z) 
I } { S } { H }  { ENTER ( Z ) 

H} {1} {N}  {ENTER(Z) 

E}{R}{I}{C}        {ENTER (Z) 
P } { H }  { ENTER ( Z ) 

R}{S}  (ENTER(Z) 

{ ENTER ( Z ) 


{ENTER (Z) ; return (DATA_TOKEN) ;  } 
{1} {0} {N}  {ENTER (Z) ; return (DESCRIPTION_TOKEN) 
{ENTER (Z) ; return (EDGE_TOKEN) ;  } 
return ( END_T0KEN) ;  } 
Z) ; return (EXCEPTIONS_TOKEN) ;  } 


return ( EXCEPTION_TOKEN ) ;  } 


return (FINISH_TOKEN) 
return (WITHIN_TOKEN) 
return (GENERIC_TOKEN 
return (GRAPH_TOKEN 
return (H0URS_T0KEN 
return (IF_T0KEN) ; 


} 


)  ;  } 


)  ;  } 
)  ;  } 


L}{E}{M}{E}{N}{T}{A}{T}{I}{0}{N} 


return ( IMPLEMENT AT I 0N_T0KEN 

T}{I}{A}{L}{L}{Y}  (ENTER(Z) 

U}{T} 

W}{0}{R}{D}{S} 

I}{M}{U}{M} 

C}{U}{T}{I}{0}{N} 

E} 

P}{0}{N}{S}{E} 


)  ;  } 


return 
return 
return 


INITIALLY_TOKEN 
INPUT_TOKEN) ;  } 
KEYW0RDS_T0KEN 

return ( MAX IMUM_TOKEN) ; 

return (EXECUTION_TOKEN) ; 

return (TIME_TOKEN) ;  } 

return ( RES P0NSE_T0KEN) ; } 


)  ;  } 


)  ;} 

;  } 


{ ENTER ( Z ) 
{ ENTER ( Z ) 
{ ENTER ( Z ) 
{ ENTER ( Z ) 
{ ENTER ( Z ) 
{ ENTER ( Z ) 

RHOHSHEHO  l  {MHIHCHRHOHSHEHCHOHNHDHS} 
return (MICROSEC_TOKEN) ;     } 

1} {M} {U} {M}        (ENTER(Z) ; return (MINIMUM_TOKEN) ; 
L}{I}{N}{G}{Blank}+{P}{E}{R}{I}{0}{D} 
; return (CALL_PERIOD_TOKEN) ;  } 
I  {MHIHNHUHTHEHS} 
; return (MIN_TOKEN) ; } 


{M} {1} {L} {L} {1} {S} {E} {C} {0} {N} {D} {S}  {ENTER(Z) ;  return (MS_TOKEN) 


f)  ;} 


} 


{R} {A} {T} {0} {R}     {ENTER (Z) ; return (OPERATOR_TOKEN 

{P} {U} {T}  (ENTER(Z) ; return (OUTPUT_TOKEN) 

{I}{0}{D}  {ENTER ( Z) ; return (PERIOD_TOKEN) ;  } 

{U} {1} {R} {E} {D} {Blank}+{B} {Y}  {ENTER(Z) ; return (REQ_BY_TOKEN 

{E} {T} {Blank}+{T} {1} {M} {E} {R}  {ENTER(Z) ; return (RESET_TOKEN 

I {S} {E} {C} {0} {N} {D} {S}  (ENTER(Z) ; return (SEC_TOKEN) ; } 

{C}{I}{F}{I}{C}{A}{T}{I}{0}{N} 

; return (SPECIFICATION_TOKEN) ;  } 

{R} {T} {Blank}+{T} {1} {M} {E} {R}  {ENTER(Z) ; return (START_TOKEN) 

{T}{E}{S}  {ENTER ( Z) ; return (STATES_TOKEN) ;  } 

{P}  {Blank}  +  {T)  {1}  {M}  {E}  {R}  {ENTER  (  Z)  ,-return  (STOP_TOKEN)  ;  } 


)  ;  } 


{EHAHM} 

{E}{R} 

{G}{G}{E}{R}{E}{D} 

(E) 

(THEHX) 


{ENTER (Z) ; return (STREAM_TOKEN) ; 
{ ENTER ( Z ) ; return ( TIMER_TOKEN ) ;  } 
{ ENTER  (Z)  ;  return  ( TRIGGERED_.TOK.EN 
{ENTER  (Z)  ,-return  (TYPE_TOKEN)  ;  } 
{ ENTER (Z) ; return ( VERTEX_TOKEN) ;  } 


)  ;  } 


"AND" 

OR" 

"XOR" 


{ENTER ( Z) ; return (AND_TOKEN) ;  } 

{ENTER ( Z) ; return (OR_TOKEN) ;  } 

{ENTER ( Z) ; return (XOR_TOKEN) ;  } 

{ ENTER ( Z ) ; return ( GREATER_THAN_OR_EQUAL 


);  } 


{ ENTER ( Z ) ; return ( LESS_THAN_OR_EQUAL ) ;  } 
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II  /  _  II  I  "  _  =  " 


+ 

II    II 


"Sc" 


"<" 

"  mod " 

"MOD" 

"rem" 

"REM" 

ii  *  *  ii  1  i 

EXP" 1 "exp" 

"  abs " 

"ABS" 

"not" 

"NOT" 

{T}{R}{U}{E} 

{FHAHLHSHE} 

<IDENT>\ ' 

{Letter} {Alpha}* 

{ ENTER 
{ ENTER 
{ ENTER 
{ ENTER 
{ ENTER 
{ ENTER 
{ ENTER 
{ ENTER 
{ ENTER 
{ ENTER 
{ ENTER 
{ ENTER 
{ ENTER 
{ ENTER 
{ENTER 
{ ENTER 
{ ENTER 
{ ENTER 
{ ENTER 
{ ENTER 
{ENTER 
{ ENTER 
{ ENTER 
{ ENTER 
{ENTER 
{ENTER 
{ ENTER 


(Z) 
(Z) 
(Z) 
(Z) 
(Z) 
(Z) 
(Z) 
(Z) 
(Z) 
(Z) 
(Z) 
(Z) 
(Z) 
(Z) 
(Z) 
(Z) 
(Z) 
(Z) 
(Z) 
(Z) 
(Z) 
(Z) 
(Z) 
(Z) 
(Z) 
(Z) 


return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 


INEQUALITY) ;  } 
ARROW) ;  } 


MOD_TOKEN) 

REM_TOKEN) 

EXP_TOKEN) 

ABS_TOKEN) 

NOT_TOKEN) 

TRUE) ;  } 

FALSE) ;  } 


)  ;  } 


(I DENT) ; 


strlen (query_lex_df a .yytext , length) ; 

the_id_token ( 1 .. length)  :=  query_l ex_df a .yytext ; 

return ( IDENTIFIER) ;  } 

{Quote} {StrLit}* {Quote}  {ENTER ( Z) ; return (STRING_LITERAL) ;  } 

(Int)  {ENTER ( Z) ; return (INTEGER_LITERAL ) ;  } 

{Int} " . " {Int}  {ENTER(Z) ; return (REAL_LITERAL) ;  } 

"{"{Text}*"}"  {ENTER ( Z) ; return (TEXT_TOKEN) ;  } 

[\n]  {NULL;} 

[  \t]  {NULL; } --ignore  spaces  and  tabs 


with  query _Tokens, query _aux_pkg; 

use  query JTokens , Text_io , query _aux_pkg ; 


package  query_Lex  is 

function  yylex  return  token; 
end  query_Lex; 

package  body  query _Lex  is 

## 

end  query_Lex; 
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D.  QUERY.Y 

--  ***  File 

--  ***  Author 

--  ***  Date 


query .y 
Dogan  Ozdemir 
September  1992 


************************************************************* 


******* 


%token  ' ( '  ' ) '  ' [ '  ' ] '  ' : '  ' , • '  'I' 

%token  ARROW 

%token  TRUE  FALSE 

%token  ADA_TOKEN  AXIOMS_TOKEN 

% token  BY_ALL_TOKEN  REQ_BY_TOKEN  BY_SOME_TOKEN 

%token  CALL_PERIOD_TOKEN  CONTROL_TOKEN 

%token  CONSTRAINTS_TOKEN 

%token  DESCRIPTION_TOKEN  DATA_TOKEN 

%token  END_TOKEN  EDGE_TOKEN  EXCEPTION_TOKEN 

%token  EXCEPTIONS_TOKEN  EXECUTION_TOKEN 

%token  FINISH_TOKEN 

%token  GENERIC_TOKEN  GRAPH_TOKEN 

%token  HOURS_TOKEN 

%token  IF_TOKEN  IMPLEMENT AT I ON_TOKEN 

%token  INPUT_TOKEN  INITIALLYJTOKEN 

%token  KEYWORDS_TOKEN 

%token  MAXIMUM_TOKEN  MINIMUMJTOKEN 

%token  MICROSEC_TOKEN  MIN_TOKEN  MS_TOKEN 

% token  MOD_TOKEN  NOT_TOKEN 

% token  OPERATOR_TOKEN  OR_TOKEN 

%token  OUTPUT_TOKEN 

%token  PERIOD_TOKEN 

%token  RESET_TOKEN  RES PONS E_TOKEN 

%token  SPECIFICATION_TOKEN  SEC_TOKEN 

% token  START_TOKEN  STATES_TOKEN  STOP_TOKEN 

%token  STREAM_TOKEN 

% token  TIME_TOKEN  TIMER_TOKEN 

%token  TYPE_TOKEN  TRIGGERED_TOKEN 

% token  VERTEX_TOKEN 

%token  WITHIN_TOKEN 

% token  TEXT_TOKEN 

%token  IDENTIFIER 

%token  STRING_LITERAL 

%token  INTEGER_LITERAL 

%token  REAL_LITERAL 

--operator  precedences 

%left  AND_TOKEN  OR_TOKEN  XOR_TOKEN  LOGICAL_OPERATOR 

%left  '<'  '>'  '='  GREATER_THAN_OR_EQUAL  LESS_THAN_OR_EQUAL  INEQUALITY 

REL AT I ONAL_0  P  ERATO  R 

%left  '+'  '-'  '&'  BINARY_ADDING_OPERATOR 

%left  UNARY_ADDING_OPERATOR 

%left  '*'  '/'  MOD_TOKEN  REM_TOKEN  MULTIPLYING_OPERATOR 

%left  EXP_TOKEN  ABS_TOKEN  NOT_TOKEN  HIGHEST_PRECEDENCE_OPERATOR 
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%start  start_symbol 

{ 

subtype  yystype  is  integer; 

} 

%% 

start_symbol : 

psdl  : 


psdl 


component 


psdl 

component 

I 


data_type 
I 
operator 


data_type : 

TYPE_TOKEN 

{ 

query_is_adt  :=True; 

} 

IDENTIFIER 

{ 

null  ; 
} 
type_spec  type_impl 

t 

type_spec : 

SPECIFICATIONJTOKEN  opt ional_generic_param 
opt  ional_type_decl 

op_spec_list  functionality  END_TOKEN 

optional_generic_param: 

GENERIC_TOKEN 
{ 

query_is_generic  :=  True; 

gen_par  : =  True ; 
} 

list_of_type_decl 
I 

optional_type_decl : 

list_of_type_decl 


op_spec_list : 
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operator : 


op_spec_list 

OPERATOR_TOKEN 

IDENTIFIER 

{ 

tmp_op_name ( 1 . . length) : =the_id_token ( 1 . . length) ; 

len_name : ^length; 

} 

operator_spec 

{ 

if  query_is_adt  then 

query _aux_pkg . Put_adt_op ( tmp_op_name , len_name , 

has_inputs , has_outputs , query _adt_op_ptr) 
has_inputs:=  False; 
has_outputs : =  False; 
in_par : =False ; 
out_par : =False; 
end  if; 
} 


OPERATOR_TOKEN 

{ 

query_is_operator  :=  True; 

} 

IDENTIFIER 

{ 

nul  1 ; 

} 

operator_spec  operator_impl 


operator_spec : 

SPECIFICATION_TOKEN 
interface 
functionality 
END  TOKEN 


interface : 


attribute : 


interface  attribute  reqmts_trace 


GENERIC_TOKEN 

{ 

query_is_generic  :=  True; 

gen_par  : =  True ; 

} 

1 ist_of _type_dec 1 

I 

INPUT_TOKEN 

( 
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query _has_in_param  :=  True; 

has_inputs    :=  True; 

in_par  :=  True; 

gen_par  :=  False; 

} 

lis  t_of _type_dec 1 

I 

OUTPUT_TOKEN 

( 

query _has_out_param  :  =  True; 

has_outputs    :  =  True; 

in_par  :=  False; 

out_par  :=  True; 

gen_par  :  =  False; 
} 

1 i s t_o f _type_dec 1 
I 

STATES_TOKEN 
list_of_type_decl 
INITIALLY_TOKEN 
initial_expression_list 
I 

EXCE  PT I ONS_TOKEN 
id_list 
I 
MAXIMUM_TOKEN  EXECUTION_TOKEN  TIME_TOKEN  time 

list_of_type_decl : 

list_of_type_decl  ' , '  type_decl 

I 

type_decl 


type_decl 


id_list 
{' 
if  gen_par  then 

query _aux_pkg . Put_gen_parameter ( the_id_token , 
"  " , length, 1 , query _gen_par_ptr ) ; 
end  if; 

if  in_par  then 
if  out_par  then 

nu  1 1  ; 
else 

query _aux_pkg . Put_in_parameter ( the_id_token , 

length, query_in_par_ptr) ; 
end  i  f ; 
end  i  f ; 

if  out_par  then 

query _aux_pkg . Put_out_parameter ( the_id_token , 

length, query _out_par_ptr) ; 
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type_name 


id  list: 


reqmts_trace 


end  i  f ; 

} 
<  .  ■ 

type_name 
{ 

if  in_par  then 
if  out_par  then 

null; 
else 

query_aux__pkg  .  Put_in_parameter_val  ( the_id_token, 

length, query_in_par_val_ptr ) 
end  i  f ; 
end  i  f ; 

if  out_par  then 

query _aux_pkg . Put_out_parameter_val ( the_id_token , 

length, query_out_par_val_ptr ) 
end  if; 
} 


IDENTIFIER 

'  [' 
list_of_type_decl 


IDENTIFIER 
id_list 

i    i 

IDENTIFIER 

I 

IDENTIFIER 

/ 

REQ_BY_TOKEN  id_list 


functionality : 

keywords  informal_desc  formal_desc 


keywords 


KEYWORDS_TOKEN 
{ 

out_par  :=  False; 

gen_par  :=  False; --in  case  no  in/out  parameters 

} 

id_list 

I 
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inf ormal_desc : 

DESCRIPTION_TOKEN  TEXT_TOKEN 

I 

formal_desc : 

AXIOMS  TOKEN  TEXT  TOKEN 


type_impl : 

IMPLEMENTATION_TOKEN  ADA_TOKEN  IDENTIFIER 
{ 

queryname . name ( 1 . . length) : =the_id_token ( 1 . . length) ; 
queryname . len : =length; 
} 

END_TOKEN 
I 
IMPLEMENTATION_TOKEN  type_name  op_impl_list  END_TOKEN 

op_impl_list : 

op_impl_list  OPERATOR_TOKEN  IDENTIFIER  operator_impl 

I 

operator_impl : 

IMPLEMENT AT I ON_TOKEN  ADA_TOKEN  IDENTIFIER 
{ 

queryname .name ( 1 . .length) : =the_id_token ( 1 . .length) ; 
queryname . len: =length; 
} 

END_TOKEN 
I 
IMPLEMENTATION_TOKEN  psdl_impl  END_TOKEN 

psdl_impl : 

data_f low_diagram  streams  timers  control_constraints 
inf ormal_desc 

data_f low_diagram: 

GRAPH_TOKEN  vertex_list  edge_list 

vertex_list : 

vertex_list  VERTEX_TOKEN  op_id  optional_time 

I 

# 
edge_list : 

edge_list  EDGE_TOKEN  IDENTIFIER 

optional_time  op_id  ARROW  op_id 


op_id: 

IDENTIFIER  opt_arg 
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opt_arg: 

' ( '  optional_id_list 

'  I  '  optional_id_list  '  )  ' 


optional_id_list : 

id  list 


optional_time : 

' : '  time 


streams : 

DATA_TOKEN  STREAM_TOKEN  list_of_type_decl 

I 

i 
timers : 

TIMER  TOKEN  id  list 


control_constraints : 

CONTROL_TOKEN  CONSTRAINTS_TOKEN  constraints 

constraints : 

constraints  OPERATOR_TOKEN  IDENTIFIER 
opt_trigger  opt_period  opt_f inish_within 
opt_mcp  opt_mrt  constraint_options 
I 

OPERATOR_TOKEN  IDENTIFIER 

opt_trigger  opt_period  opt_f inish_within 
opt_mcp  opt_mrt 

constraint_options : 

constraint_options  OUTPUT_TOKEN  id_list  IF_TOKEN 

expression  reqmts_trace 

I 

constraint_options  EXCEPT I ON_TOKEN  IDENTIFIER 

opt_if_predicate  reqmts_trace 

I 

constraint_options  timer_op  IDENTIFIER 

opt_if_predicate  reqmts_trace 


opt_trigger : 

TRIGGERED_TOKEN  trigger  opt_if_predicate  reqmts_trace 


trigger : 

BY  ALL  TOKEN  id  list 
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BY  SOME  TOKEN  id  list 


opt_period : 

PERIOD_TOKEN  time  reqmts_trace 
I 

opt_f inish_within : 

FINISHJTOKEN  WITHIN_TOKEN  time  reqmts_trace 


opt_mcp : 

MINIMUM_TOKEN  CALL_PERIOD_TOKEN  time  reqmts_trace 


opt_mrt : 

max_resp_time  time  reqmts_trace 

I 

max_resp_time : 

MAXIMUM_TOKEN  RESPONSE_TOKEN  TIME_TOKEN 

timer_op : 

RESET_TOKEN 
I 

STARTJTOKEN 
I 
STOP_TOKEN 

opt_if_predicate : 

IF_TOKEN  expression 


initial_expression_list : 

initial_expression_list  ' , '  initial_expression 

I 

initial_expression 

initial_expression : 
TRUE 

I 
FALSE 

I 
INTEGER_LITERAL 

I 
REAL_LITERAL 

I 
STRING_LITERAL 

I 
IDENTIFIER 
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type_name  ' . '  IDENTIFIER 

I 

type_name  ' . '  IDENTIFIER  ' ( '  initial_expression_list  ' ) 

I 

' ( '  initial_expression_list  ' ) ' 

I 

initial_expression  log_op  initial_expression   %prec 
logical_operator 

I 

initial_expression  rel_op  initial_expression   %prec 
relational_operator 

I 

'-'  initial_expression    %prec  unary _adding_operator 

I 

'+'  initial_expression    Iprec  unary _adding_operator 

I 

initial_expression  bin_add_op  initial_expression   Iprec 
mult iplying_opera tor 

I 

initial_expression  bin_mul_op  initial_expression   Iprec 
multiplying_operator 

I 

initial_expression  EXP_TOKEN  initial_expression    %prec 
highest_precedence_operator 

I 

NOT_TOKEN  initial_expression   %prec 
highest_precedence_operator 

I 

ABS_TOKEN  initial_expression   %prec 
highest__precedence_operator 


log_op : 


rel_op : 


bin_add_op: 
bin_mul_op : 
time  : 


AND_TOKEN 
t 

OR_TOKEN 
I 
XOR_TOKEN 

• <•     I  ' > '  I  '='  I  GREATER_THAN_OR_EQUAL 
I 
LESS_THAN_OR_EQUAL  I  INEQUALITY 

/ 

'  *  '  I  ' / '  I  MOD_TOKEN  I  REM_TOKEN 
time_number  MICROSEC_TOKEN 
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time  number 


time_number  MS_TOKEN 

I 

time_number  SEC_TOKEN 

I 

time_number  MIN_TOKEN 

I 

time_number  HOURS_TOKEN 

t 

INTEGER  LITERAL 


expression_list : 

expression_list  ' , '  expression 

I 

expression 

# 
expression : 

TRUE  I  FALSE  I  INTEGER_LITERAL  I  time  I  REAL_LITERAL 

I  STRING_LITERAL  I  IDENTIFIER 

I  type_name  ' . '  IDENTIFIER 

I  type_name  ' . '  IDENTIFIER  ' ( '  expression_list  ' ) ' 

I  ' ( '  expression_list  ' ) ' 

I  expression  log_op  expression   %prec  logical_operator 

I  expression  rel_op  expression   %prec  relational_operator 

I  '-'  expression   %prec  unary _adding_operator 
I  '+'  expression   %prec  unary_adding_operator 

I  expression  bin_add_op  expression  %prec 
unary_adding_operator 

I  expression  bin_mul_op  expression  %prec 
mult iplying_opera tor 

I  expression  EXP_TOKEN  expression   %prec 
highest_precedence_operator 

I  NOT_TOKEN  expression   %prec  highest_precedence_operator 

I  ABS_TOKEN  expression   %prec  highest_precedence_operator 


with  Text_io, query_tokens , query _goto, query_shif t_reduce , query_lex, 

query _aux_pkg ; 
use  Text_io, query_tokens , query _goto, query_shif t_reduce, query_lex, 
query _aux_pkg ; 


package  queryparser  is 
procedure  Yyparse; 


echo  :  boolean  :=  false; 

number_of_errors  :  Natural  :=  0 ; 
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in_par 

out_par 

gen_par 

has_inputs 

has_outputs 

tmp_op_name 

len  name 


Boolean : =False ; 
Boolean : =False; 
Boolean : =False ; 
Boolean : =False; 
Boolean : =False; 
String (1. .80) ; 
Integer : =0 ; 


end  queryparser; 

package  body  queryparser  is 

procedure  Yyerror(s  :  in  string  :=  "syntax  error")  is 
begin 

number_of_errors  :=  number_of_errors  +  1; 

put  ("***  ») ; 

put_line ( s ) ; 
end  Yyerror; 

##%procedure_parse 

end  queryparser; 
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COMPONENT  AUX  PKG 


1.       COMPONENT  AUX  S.A 


***    File 

***    Author 

***    Date 

♦  •••♦•it************************************************* 


component_aux_s . a 
Dogan   Ozdemir 
September    1992 


with   Text_Io; 
use   Text_Io; 

package  component_aux_pkg  is 


the_id_token 

length 

has_in_param 

has_out_param 

is_operator 

is_adt 

is_generic 


Stringd.  .  80)  ; 
Integer : =1; 


Boolean 
Boolean 
Boolean 
Boolean 
Boolean 


=  False; 

=  False; 

=  False; 

=  False; 

=  False; 


•  Global  list  constructors 

•  These  variables  and  structures  will  hold  the  necessary  info 

•  to  construct  the  output  file(s) 

type  with_name  is 
record 

name  :  String ( 1 .. 80 ) ; 
len   :  Integer :=0; 
end  record; 


type  in_parameter_list ; 

type  in_parameter_ptr  is  access  in_parameter_list ; 
type  in_parameter_list  is 
record 

name  :  String ( 1 .. 80 ) ; 
len   :  Integer :=0; 
link  :  in_parameter_ptr ; 
end  record; 


type  out_parameter_list ; 

type  out_parameter_ptr  is  access  out_parameter_list ; 
type  out_parameter_list  is 
record 


name 
len 
link 
end  record; 


Stringd.  .80)  ; 
Integer : =0 ; 
out_parameter_ptr ; 
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type  in_parameter_val_list ; 

type  in_parameter_val_ptr  is  access  in_parameter_val_list ; 

type  in_parameter_val_list  is 
record 


name 

len 
link 


String (1 .  .80)  ; 
Integer : =0 ; 
in_parameter_val_ptr ; 


end  record; 


type  out_parameter_val_list ; 

type  out_parameter_val_ptr  is  access  out_parameter_val_list 
type  out_parameter_val_list  is 
record 


name 
len 
link 
end  record; 


String (1 . .80) ; 
Integer : =0 ; 
out_parameter_val_ptr ; 


type    gen_paraineter_list  ; 

type  gen_parameter_ptr  is  access  gen_parameter_list ; 
type  gen_parameter_list  is 
record 

param:  String ( 1 ..  80 )  ; 
val   :  StringQ.  .80)  ; 
link  :  gen_parameter_ptr ; 
end  record; 


type  adt_operator_list ; 

type  adt_operator_ptr  is  access  adt_operator_list ; 
type  adt_operator_list  is 
record 


String  (1.  .80)  ; 
Boolean : =False ; 
Boolean : =False; 
in_parameter_ptr ; 
;t   in_parameter_val_ptr ; 
out_parameter_ptr ; 
op_out_par_val :  out_parameter_val_ptr ; 
link  :  adt_operator_ptr ; 

end  record; 


op_name 
has_inputs 
has_outputs 
op_in_par 
op_  i  n_pa  r_va 1 
op_out_par     : 


withname 

in_par_ptr 

out_par_ptr 

in_par_va l_pt  r 

out_par_val_ptr 

gen_par_ptr 

adt_op_ptr 


with_naine; 
in_parameter_ptr ; 
out_paran\eter_ptr  ; 
in_parameter_val_ptr ; 
out_parameter_val_ptr ; 
gen_parameter_ptr ; 
adt_operator_ptr ; 
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procedure  Put_in_parameter (Data 

Len 
List 


in  String; 

in  Integer; 

in  out  in_parameter_ptr ) ; 


procedure  Put_out_parameter (Data :  in  String; 

Len  :  in  Integer; 

List:  in  out  out_parameter_ptr ) ; 


procedure  Put_in_parameter_val (Data 

Len 
List 


in  String; 

in  Integer; 

in  out  in_parameter_val_ptr ) ; 


procedure  Put_out_parameter_val (Data 

Len 
List 


in  String; 

in  Integer; 

in  out  out_parameter_val_ptr ) ; 


procedure  Put_gen_parameter ( Parm 

Val 
P_Len 
V_Len 
List 


in  String; 

in  String; 

in  Integer; 

in  Integer; 

in  out  gen_parameter_ptr ) ; 


procedure  Put_adt_op (name :  in  String; 

len  :  in  Integer; 

inputs , outputs  :  in  Boolean; 

List  :  in  out  adt_operator_ptr ) ; 

procedure  strlen(s:  in  String;  n:  in  out  Integer); 
end  component_aux_pkg; 


2.   COMPONENT  AUX  B.A 


component_aux_b . a 
Dogan  Ozdemir 
September  1992 


***  File 
***  Author 
***  Date 


with  Text_Io; 
use  Text_Io; 

package  body  component_aux_pkg  is 

procedure  Put_in_parameter  (Data:  in  String; 

Len  :  in  Integer; 

List:  in  out  in_parameter_ptr )  is 
begin 

if  List  =  null  then 

List  :=  new  in_parameter_list ; 
List .name ( 1 . .Len) : =Data ( 1 . .Len) ; 
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List . len : =Len; 
List . link : =null ; 
else 

Put_in_parameter (Data, Len, List . link) ; 
end  if; 
end  Put_in_parameter ; 


procedure  Put_out_parameter (Data 

Len 
List 


in  String; 

in  Integer; 

in  out  out_parameter_ptr )  is 


begin 

if  List  =  null  then 

List  : -   new  out_parameter_list ; 
List .name ( 1 . . Len) : =Data ( 1 . .Len) ; 
List . len : =Len; 
List . link : =null ; 
else 

Put_out_parameter (Data, Len, List . link) ; 
end  i  f ,- 
end  Put_out_parameter ; 


in  String; 

in  Integer; 

in  out  in_parameter_val_ptr )  is 


procedure  Put_in_parameter_val (Data 

Len 
List 
begin 

if  List  =  null  then 

List  :=  new  in_parameter_val_list ; 
List . name ( 1 . . Len) : =Data ( 1 . . Len) ; 
List . len : =Len; 
List . link : =null ; 
else 

Put_in_parameter_val (Data, Len, List . link) ; 
end  if; 
end  Put_in_parameter_val ; 


procedure  Put_out_parameter_val (Data 

Len 
List 
begin 

if  List  =  null  then 

List  :=  new  out_parameter_val_list ; 
List . name ( 1 . . Len) : =Data ( 1 . . Len) ; 
List . len: =Len; 
List . link: =null ; 
else 


in  String; 

in  Integer; 

in  out  out_parameter_val_ptr )  is 
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Put_out_parameter_val ( Data, Len, List . link) ; 
end  i  f ; 
end  Put_out_parameter_val ; 


procedure  Put_gen_parameter (Parm 

Val 
P_Len 
V_Len 
List 

begin 


in  String; 

in  String; 

in  Integer; 

in  Integer; 

in  out  gen_parameter_ptr )  is 


if  List  =  null  then 

List  :=  new  gen_parameter_list ; 
List . param( 1 . . P_Len) : =Parm( 1 . . P_Len) ; 
List .val (1. .V_Len) :=Val(l. .V_Len) ; 
List . link: =null ; 
else 

Put_gen_parameter  (  Parm,  Val ,  P_Len,  V_Len,  List  .  link)  ; 
end  if; 
end  Put_gen_parameter ; 


procedure  Put_adt_op 


name:  in  String; 

len  :  in  Integer; 

inputs , outputs  :  in  Boolean; 

List:  in  out  adt_operator_ptr )  is 


begin 


if  List  =  null  then 

List  :=  new  adt_operator_list ; 

List .op_name ( 1 . . len) : =  name ( 1 . . len) ; 

List .has_inputs : =inputs ; 

List -has_outputs : =outputs; 

List .op_in_par : =  in_par_ptr; 

List .op_in_par_val : =  in_par_val_ptr ; 

List .op_out_par : =out_par_ptr ; 

List . op_out_par_val : =out_par_val_ptr ; 

List . link: =null ; 


else 
end  i  f ; 


Put_adt_op (name, len, inputs , outputs , List . link) ; 


in_par_ptr : =null ; 
in_par_val_ptr : =null; 
out_par_ptr : =null ; 
out_par_val_ptr : =null; 
end  Put_adt_op; 
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procedure  strlenfs:  in  String;  n:  in  out  Integer)  is 

I  :  Integer  : =  1; 
char : Character : = ' x ' ; 
endstr : Boolean : =False; 

begin 

while  endstr=False  loop 
begin 
char : =s ( I ) ; 
I: =1+1; 
exception 

when  constraint_error  =>  endstr : =True 
end; 
end  loop; 
n:=  1-1; 
end  strlen; 


end  component_aux_pkg; 
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F.      COMPONENT  COMPOSE  PKG 


1.       COMPONENT  COMPOSE  S.A 


***  File 

***  Author 

***  Date 
it******************************************************************-*- 


component_compose_s .a 
Dogan  Ozdemir 
September  1992 


with  text_io, component_aux_pkg; 
use  text_io, component_aux_pkg; 

package  component_compose_pkg  is 


inpar_ptr 

outpar_ptr 

inparv_ptr 

outparv_ptr 

genpar_ptr 

adtop_ptr 

opin_par 

opin_parv 

opout_par 

opout_parv 

outf ile 

genf ile 

actual_val 

gen_f ound 


in_parameter_ptr ; 
out_parameter_ptr ; 
in_parameter_val_ptr ; 
out_parameter_val_ptr ; 
gen_parameter_ptr ; 
adt_operator_ptr ; 
in_parameter_ptr ; 
in_parameter_val_ptr ; 
out_parameter_ptr ; 
out_parameter_val_ptr ; 
f ile_type ; 
f ile_type; 
string  (1.  .80)  ; 
Boolean : =False ; 


procedure  non_generic_operator ; 
procedure  generic_operator ; 
procedure  non_generic_adt ; 
procedure  generic_adt ; 

end  component_compose_pkg; 

2.   COMPONENT  COMPOSE  B.A 


'**  File 
**  Author 
**  Date 


component_compose_b . a 
Dogan  Ozdemir 
September  1992 


***+++*******•***************+*******+****•***********•****+****•*** 


with  text_io, component_compose_pkg; 
use  text_io, component_compose_pkg; 

package  body  component_compose_pkg  is 

procedure  non_generic_operator  is 


100 


begin 

create  (outf ile, mode=>out_f ile,  naine  =  >"  out  file"  )  ; 

create (gen file, mode =>out_f ile, name=>"genf ile" ) ; 

put (genf ile, "        " ) ; 

put (outf ile,  "with  " )  ; 

put (outf ile, withname .name ( 1 . .withname . len) ) ; 

put (outf ile, " ; " ) ; 

new_line (outf ile,  2 )  ; 

put (outf ile,  "package  "); 

put (outf ile , withname . name ( 1 . . (withname . len-3 ) ) ) ; 

put (outf ile, "_pkg  is"); 

new_line (outf ile,  2 )  ; 

put (outf ile, "   procedure  " ) ; 

put (outf ile, withname .name ( 1 . . (withname .len-3 ) ) ) ; 

if  has_in_param  then 
put (outf ile, "  ( " ) ; 
inpar_ptr:=  in_par_ptr; 
inparv_ptr:=  in_par_val_ptr ; 
while  inpar_ptr  /=  null  loop 
Put (outf ile, inpar_ptr .name) ; 
inpar_ptr : =inpar_ptr . link; 
Put (outf ile, "  :  in  " ) ; 

Put (outf ile, inparv_ptr .name ( 1 . . inparv_ptr .len)  ) 
inparv_ptr:=  inparv_ptr . link; 
if  inpar_ptr  /=  null  then 
Put (out file,  " ; " )  ; 

new_line (outf ile) ; set_col (outf ile, 13 ) ; 
else 

if  has_out_param  then 
Put (outf ile,  "  ;  "  )  ; 
new_line (outf ile) ; 
set_col (outf ile, 13 )  ; 
exit  ; 
else 

Put (outf ile, "  ) ") ; 
new_line (outf ile) ; 
end  if; 
end  if; 
end  loop; 
end  if; 

if  has_out_param  then 
if  has_in_param  then 

null  ; 
else 

put (outf ile, "  (" )  ; 
end  if; 

outpar_ptr:=  out_par_ptr; 
outparv_ptr : =  out_par_val_ptr ; 
while  outpar_ptr  /=  null  loop 
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Put (outf ile, outpar_ptr .name ( 1 . .outpar_ptr . len)  ) ; 

outpar_ptr : =  outpar_ptr . link; 

Put (outf ile, "  :  out  "); 

Put (outf ile, outparv_ptr . name ( 1 . .outparv_ptr .len)  )  ; 

outparv_ptr : =outparv_ptr . link; 

if  outpar_ptr  /=  null  then 

Put (outf ile, " ; " ) ; 

new_line (outf ile) ; set_col (outf ile, 13) ; 
else 

Put (out  file,  "  )  " )  ; 

new_line (outf ile) ; 
end  if; 
end  loop; 
end  if; 

new_line (outf ile)  ; 
put (outf ile, "  renames  "); 
put (out  file , withname . name )  ; 
put (outf ile, " . " ) ; 

put (outf ile, withname . name ( 1 . . (withname . len-3 ) ) ) ; 
put (outf ile, " ; " ) ; 
new_line (outf ile, 2 ) ; 
put (outf ile, "end  "); 

put (outf ile, withname .name ( 1 . . (withname .len-3 ) ) ) ; 
put (outf ile, "_pkg; " ) ; 
close (outf ile) ; 
end  non_generic_operator ; 

procedure  generic_operator  is 

begin 

create (outf ile, mode=>out_f ile, name=>" out file" ) ; 

create (genf ile, mode =>out_f ile, name=>"genf ile" ) ; 

put (genf ile, "generic" ) ; 

put (outf ile, "with  "); 

put (outf ile, withname .name ( 1 . .withname .len) ) ; 

put (outf ile, " ; " ) ; 

new_line (outf ile, 2 ) ; 

put (outf ile, "package  "); 

put (outf ile, withname .name ( 1 . . (withname .len-3 ) ) ) ; 

put (outf ile, "_pkg  is"); 

new_line (outf ile, 2 ) ; 

--At  this  point  we  need  actual  values  of  generic  units  for 
instantiation . 

--This  part  of  code  is  commented  out  for  reference. 

--genpar_ptr : =gen_par_ptr ; 
--while  genpar_ptr  /=  null  loop 

--put  ("Enter  actual  parameter  for  generic  <"); 

--put  (genpar_ptr .name (1 . .genpar_ptr. len)  ) ; 
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--put  (">  :  "  )  ; 
--get_line (actual_val , length) ; 
--component_aux_pkg . Put_gen_parameter_val 

(actual_val, length, gen_par_val_ptr) ; 
--new_line; 

--genpar_ptr : =genpar_ptr . link; 
--end  loop; 

--now  continue  with  instantiation 

put (outf ile, "   package  tmp_" ) ; 

put (outf ile, withname . name ( 1 . . (withname . len-3 ) ) ) ; 
put (outf ile, "_pkg  is  new  " ) ; 

put (outf ile, withname .name ( 1 . .withname . len) ) ; 
put (outf ile, "  (  " ) ; 
genpar_ptr : =gen_par_ptr ; 
while  genpar_ptr  /=  null  loop 
Put (outf ile, genpar_ptr . val ) ; 
if  genpar_ptr . link  /=  null  then 
Put (outf ile,  "  ,  "  )  ; 
end  if; 

genpar_ptr : =genpar_ptr . link; 
end  loop; 
put (outf ile, "  ) ; " ) ; 
new_line (outf ile,  2 ) ; 

--now  rename 

put (outf ile, "   procedure  "); 

put (outf ile, withname .name ( 1 . . (withname .len-3 ) ) ) ; 

if  has_in_param  then 
put (outf ile, "  ( " ) ; 
inpar_ptr:=  in_par_ptr; 
inparv_ptr:=  in_par_val_ptr ; 
while  inpar_ptr  /=  null  loop 

Put (outf ile, inpar_ptr .name ( 1 . . inpar_ptr .len)  ) ; 
Put (outf ile, "  :  in  " ) ; 
inpar_ptr : =inpar_ptr . link; 

genpar_ptr : =gen_par_ptr ; 
while  genpar_ptr  /=  null  loop 

if  inparv_ptr .name  =  genpar_ptr .param  then 
Put (outf ile, genpar_ptr .val ) ; 
gen_f ound : =True ; 
exit  ; 
end  if; 

genpar_ptr : =genpar_ptr . link; 
end  loop; 
if  gen_found=False  then 

Put (outf ile, inparv_ptr .name ( 1 . . inparv_ptr . len)  ) 
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end  if; 

gen_f ound : =False ; 

inparv_ptr:=  inparv_ptr . link; 
if  inpar_ptr  /=  null  then 
Put (outf ile, " ; " ) ; 
new_line (out file ) ; 
set_col (outf ile, 13 ) ; 
else 

if  has_out_param  then 
Put (outf ile, " ; " ) ; 
new_line (outf ile ) ; 

set_col (outf ile, 13 ) ; 
exit  ; 


else 


Put (out  file, "  )  ") ; 
new_line (outf ile) ; 


end  i  f ; 
end  if; 
end  loop; 
end  i  f ; 

if  has_out_param  then 
if  has_in_param  then 
null; 
else 

put (outf ile, " ( " ) ; 
end  if; 
outpar_ptr:=  out_par_ptr; 
outparv_ptr : =  out_par_val_ptr ; 
while  outpar_ptr  /=  null  loop 

Put (outf ile, outpar_ptr . name ( 1 . .outpar_ptr . len)  ) ; 
outpar_ptr:=  outpar_ptr . link; 
Put (outf ile, "  :  out  ") ; 

genpar_pt  r : =gen_par_pt r ; 
while  genpar_ptr  /=  null  loop 

if  outparv_ptr .name  =  genpar_ptr .param  then 
Put (outf ile, genpar_ptr . val ) ; 
gen_f ound : =True ; 
exit  ; 
end  i  f ; 
genpar_ptr : =genpar_ptr . 1  ink  ; 
end  loop; 
if  gen_found=False  then 

Put (outf ile, outparv_ptr .name ( 1 . .outparv_ptr .len! 
end  i  f ; 
gen_f ound : =False ; 

outparv_ptr : =outparv_ptr . link; 
if  outpar_ptr  /=  null  then 
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Put (outfile, " ; " ) ; 
new_line (out file) ; 
set_col (outfile, 13) ; 
else 

Put (outfile, "  ) " ) ; 
new_line (outfile) ; 
end  if; 
end  loop; 
end  i  f ; 


new_line (outfile ) ; 

put (outfile, "  renames  tmp_" ) 

put (outfile, withname .name ( 1 . 

put (outfile, "_pkg .  "  )  ; 

put (outfile, withname .name ( 1 . 

put (outfile, " ; " ) ; 

new_line (outfile, 2 ) ; 

put (outfile, "end  " ) ; 
put (outfile, withname . name ( 1 . . 

put (outfile, "_pkg; " ) ; 

close (outfile) ; 
end  generic_operator ; 


(withname . len-3 ) ) ) 
(withname . len-3 ) ) ) 

[withname . len-3 )  )  )  ; 


procedure  non_generic_adt  is 

begin 

create (outfile, mode=>out_f ile, name=>" out file" 
create (genf ile, mode =>out_f ile, name=>"genf ile" 
put (genf ile,  "        "  )  ; 
put (outfile, "with  "); 
put (outfile, withname . name ( 1 . .withname . len) ) ; 
put (outfile,  " ;  "  )  ; 
new_line (outfile, 2 ) ; 
put (outfile, "package  "); 
put (outfile, withname .name ( 1 
put (outfile, "_pkg  is"); 
new_line (outfile, 2) ; 


(withname . len-3 ) ) ) ; 


adtop_ptr : =adt_op_ptr ; 
while  adtop_ptr  /=  null  loop 

put (outfile, "   procedure  "); 

Put (outfile, adtop_ptr .op_name) ; 

if  adtop_ptr .has_inputs  then 
put (outfile, "  (") ; 
opin_par : =adtop_ptr . op_in_par ; 
opin_parv: =adtop_ptr .op_in_par_val ; 
while  opin_par  /=  null  loop 
put (outfile, opin_par . name) ; 
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opin_par : =opin_par . link; 
Put (outf ile, "  :  in  " ) ; 
--generic  par  check  is  to  go  here 
put (outf ile, opin_parv. name ) ; 
opin_parv: =opin_parv. link; 
if  opin_par  /=  null  then 

Put (outf ile, " ; " ) ; 
new_line (outf ile) ; 
set_col (outf ile, 13  )  ; 
else 

if  adtop_ptr .has_outputs  then 
Put (outf ile, " ; " ) ; 
new_line (outf ile) ; 
set_col (outf ile, 13 ) ; 
exit  ; 


else 


Put (outf ile, "  ) " ) ; 
new_line (outf ile) ; 


end  i  f ; 
end  if; 
end  loop; 
end  i  f ; 

if  adtop_ptr .has_outputs  then 

if  adtop_ptr .has_inputs  then 
null ; 
else 

put (outf ile, " ( " ) ; 
end  i  f ; 

opout_par : =adtop_ptr . op_out_par ; 
opout_parv: =adtop_ptr .op_out_par_val ; 
while  opout_par  /=  null  loop 
Put ( out  file, opout_par . name )  ; 
opout_par : =opout_par . link; 
Put (outf ile, "  :  out  " ) ; 
put (outf ile, opout_parv. name) ; 
opout_parv : =opout_parv . 1 ink ; 
if  opout_par  /=  null  then 

Put (out file,  " ;  ")  ; 
new_line (outf ile) ; 
set_col (outf ile, 13 ) ; 


else 


Put (outf ile, "  ) " ) ; 
new_line (outf ile) ; 


end  i  f ; 

end  loop; 
end  if; 
new_line (outf ile) ; 
put (outf ile, "  renames  " ) ; 
put (outf ile, withname . name! 
put (outf ile, " . " ) ; 


106 


put (out file, adtop_ptr . op_name ) ; 
put (outf ile,  " ; " )  ; 
new_line (outf ile,  2 )  ; 
adtop_ptr  :  =adtop_ptr  .  link; 
end  loop; 

put (outf ile, "end  " ) ; 

put (outf ile, withname .name ( 1 . . (withname . len-3 ) ) ) ; 
put (outf ile, "_pkg; " ) ; 
close (outf ile)  ; 

end  non_generic_adt ; 


procedure  generic_adt  is 

begin 

create (outf ile, mode=>out_f ile, name=>" out file" 
create (gen file, mode =>out_f ile, name=>"genf ile" 
put (genf ile, "generic " ) ; 
put (outf ile, "with  " ) ; 

put (outf ile, withname .name ( 1 . .withname . len) ) ; 
put (outf ile, " ; " ) ; 
new_line (outf ile,  2 ) ; 
put (outf ile,  "package  "); 

put (outf ile, withname .name ( 1 . . (withname. len-3 ) 
put (outf ile, "_pkg  is"); 
new_line (outf ile,  2  )  ; 


put (outf ile, "  package  tmp_" 
put (outf ile, withname .name ( 1 . 
put (outf ile,  "_pkg  is  new  "); 
put (outf ile, withname .name ( 1 . 
put (outf ile, "  (  " ) ; 
genpar_ptr : =gen_par_ptr ; 
while  genpar_ptr  /=  null  loop 

Put (outf ile, genpar_ptr . val ) ; 

if  genpar_ptr . link  /=  null  then 
Put (outf ile, " ,  " ) ; 
end  if; 

genpar_ptr : =genpar_ptr . link; 
end  loop; 
put (outf ile,  "  )  ; ")  ; 
new_line (outf ile, 2 ) ; 


(withname . len-3 
withname . len ) ) ; 


■now  rename 


adtop_ptr : =adt_op_ptr ; 
while  adtop_ptr  /=  null  loop 
put (outf ile, "   procedure  "); 
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Put (outf ile, adtop_ptr . op_name ) ; 

if  adtop_ptr .has_inputs  then 
put (outf ile, "  ( " ) ; 
opin_par : =adtop_ptr . op_in_par ; 
opin_parv : =adtop_ptr . op_in_par_val ; 
while  opin_par  /=  null  loop 
put (outf ile, opin_par .name) ; 
opin_par : =opin_par . link; 
Put (outf ile, "  :  in  "); 

--generic  par  check  is  to  go  here  for  generic  proc 
genpar_ptr : =gen_par_ptr ; 
while  genpar_ptr  /=  null  loop 

if  opin_parv.name=genpar_ptr .param  then 
Put (outf ile, genpar_ptr . val ) ; 
gen_f ound : =True ; 
exit  ; 
end  if; 

genpar_ptr : =genpar_ptr . link; 
end  loop; 

if  gen_found=False  then 

put (outf ile, opin_parv. name) ; 
end  if; 

gen_f ound : =False  ; 

opin_parv: =opin_parv. link; 
if  opin_par  /=  null  then 

Put (outf ile, " ; " ) ; 

new_line (outf ile) ; 

set_col (outf ile, 13 ) ; 


else 


if  adtop_ptr . has_outputs  then 

Put (outf ile, " ; " ) ; 

new_line (outf ile) ; 

set_col (outf ile, 13 ) ; 

exit  ; 
else 

Put (out file,  "  ) " )  ; 

new_line (outf ile) ; 
end  i  f ; 


end  i  f ; 
end  loop; 
end  if; 

if  adtop_ptr .has_outputs  then 

if  adtop_ptr .has_inputs  then 
null; 
else 

put (outf ile, " (" ) ; 
end  if; 
opout_par : =adtop_ptr . op_out_par ; 
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opout_parv: =adtop_ptr . op_out_par_val ; 
while  opout_par  /=  null  loop 
Put (outf ile, opout_par . name) ; 
opout_par : =opout_par . link; 
Put (outf ile, "  :  out  " ) ; 
--generic  par  check 
genpar_ptr : =gen_par_ptr ; 
while  genpar_ptr  /=  null  loop 
if  opout_parv.name=genpar_ptr .param  then 
Put (outf ile, genpar_ptr . val ) 
gen_f ound : =True ; 
exit  ; 
end  if; 

genpar_ptr : =genpar_ptr . link; 
end  loop; 

if  gen_f ound=False  then 

put (outf ile, opout_parv. name) ; 
end  if; 

gen_f ound: =False ; 

opout_parv : =opout_parv .link; 
if  opout_par  /=  null  then 

Put (outf ile, " ; " ) ; 
new_line (outf ile) ; 
set_col (outf ile, 13 ) ; 
else 

Put (out file,  "  )  ")  ; 
new_line (outf ile) ; 
end  if; 
end  loop; 
end  if; 
new_line (outf ile)  ; 
put (outf ile, "  renames  tmp_" ) ; 

put (outf ile, withname . name ( 1 . . (withname . len-3 ) ) 
put (outf ile, "_pkg. " ) ; 
put ( out  file, adtop_ptr . op_name ) ; 
put (out file,  ";  ")  ; 
new_line (outf ile, 2 ) ; 
adtop_ptr : =adtop_ptr . link; 
end  loop; 

put (outf ile, "end  " ) ; 

put (outf ile, withname .name ( 1 . . (withname .len-3 ) ) ) ; 

put (outf ile, "_pkg; " ) ; 

close (outf ile) ; 

end  generic_adt; 

end  component_compose_pkg; 
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G.     COMPONENT  PARSE.A 


component_parse . a 
Dogan  Ozdemir 
September  1992 


--  ***  File 
__  **+  Author 

--  ***  Date 

************************•*******************************+ 

with  u_env, component_parser , psdl_lex_io,  psdl_lex, text_io, 

component_aux_pkg,  component_compose_pkg; 
use  u_env, component_parser , text_io, component_aux_pkg, 
component_compose_pkg ; 

procedure  parse  is 

last         : integer : =0 ; 

begin 

if  u_env.Argc  =  2  then 

strlen (Argv( 1) .  S, last ) ; 

psdl_lex_io . open_input ( Argv ( 1 ) . S ( 1 . . last ) ) ; 

psdl_lex_io . create_output ; 

yyparse; 

psdl_lex_io . close_input ; 
psdl_lex_io . close_output ; 

if  is_generic  and  is_operator  then 

component_compose_pkg . generic_operator ; 
elsif  is_generic=False  and  is_operator  then 

component_compose_pkg . non_generic_operator ; 
elsif  is_generic  and  is_adt  then 

generic_adt ; 
elsif  is_generic=False  and  is_adt  then 

non_generic_adt ; 
end  if; 

else 

put_line ( "Wrong  number  of  arguments"); 
end  if; 

end  parse; 
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H.     QUERY  AUX  PKG 


1.      QUERY  AUX  S.A 


***    File 

***    Author 

***    Date 

**********■*  +  *******************************************  +  ********■*■*** 


query_aux_s . a 
Dogan  Ozdemir 
September  1992 


with  Text_Io; 
use  Text_Io; 

package  query _aux_pkg  is 


the_id_token 

length 

query _has_in_param 

query_has_out_param 

query_is_operator 

query_is_adt 

query_is_generic 


String (1. .80) ; 

Integer : =1 ; 

Boolean 
Boolean 
Boolean 
Boolean 
Boolean 


=  False 

-  False 

=  False 

=  False 

=  False 


Global  list  constructors 

These  variables  and  structures  will  hold  the  necessary  info 

to  construct  the  output  file(s) 


type  query _name  is 
record 

name  :  String (1 . .80) ; 
len   :  Integer :=0; 
end  record; 

type  query_in_parameter_list ; 

type  query_in_parameter_ptr  is  access 

query_in_parameter_list ; 
type  query_in_parameter_list  is 
record 


name 

len 

link 


Stringd.  .80)  ; 
Integer : =0 ; 
query_in_parameter_ptr ; 


end  record; 

type  query_out_parameter_list ; 

type  query _out_parameter_ptr  is  access 

query _out_parameter_list ; 
type  query _out_parameter_list  is 
record 

name  :  String ( 1 .. 80 ) ; 
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len   :  Integer :=0; 
link  :  query _out_parameter_ptr ; 
end  record; 


type  query_in_parameter_val_list ; 

type  query_in_parameter_val_ptr  is  access 

query_in_parameter_val_list ; 
type  query_in_parameter_val_list  is 
record 


name 

len 

link 


String (1 . .80) ; 
Integer  :  =0 ; 
query_in_parameter_val_ptr ; 


end  record; 


type  query_out_parameter_val_list ; 

type  query_out_parameter_val_ptr  is  access 

query _out_parameter_val_l ist 
type  query _out_parameter_val_list  is 
record 

name  :  String ( 1 .. 80 )  ; 
len   :  Integer  :=0; 

link  :  query_out_parameter_val_ptr ; 
end  record; 


type  query_gen_parameter_list ; 

type  query_gen_parameter_ptr  is  access 

query _gen_parameter_list ; 
type  query _gen_parameter_list  is 
record 

param:  String ( 1 .. 80 ) ; 
val   :  String (1. .80) ; 
link  :  query _gen_parameter_ptr ; 
end  record; 


type  query _adt_operator_list ; 

type  query _adt_operator_ptr  is  access 

query _adt_operator_l ist ; 
type  query _adt_operator_l ist  is 
record 

String (1. .80) ; 
Boolean : =False ; 
Boolean : =False ; 
query_in_parameter_ptr ; 
query_in_parameter_val_ptr ; 
query_out_parameter_ptr ; 
query_out_parameter_val_ptr ; 
query_adt_operator_ptr ; 


op_name 
has_inputs 
has_outputs 
op_in_par 
op_in_par_val 
op_out_par     : 
op_out_par_va 1 
link 
end  record; 
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queryname 

query_in_par_ptr 

query _out_par_ptr 

query_in_par_val_ptr 

query_out_par_val_ptr 

query_gen_par_ptr 

query _adt_op_ptr 


query_name ; 

query_in_parameter_ptr ; 
query_out_parameter_ptr ; 
query_in_parameter_val_ptr ; 
query_out_parameter_val_ptr , 
query_gen_parameter_ptr ; 
query _adt_operator_ptr ; 


procedure  Put_in_parameter (Data 

Len 
List 


in  String; 

in  Integer; 

in  out  query_in_parameter_ptr ) 


procedure  Put_out_parameter (Data :  in  String ; 

Len  :  in  Integer; 
List:  in  out  query _out_parameter_ptr ) ; 

procedure  Put_in_parameter_val (Data :  in  String; 

Len  :  in  Integer; 

List:  in  out  query_in_parameter_val_ptr ) 

procedure  Put_out_parameter_val (Data :  in  String; 

Len  :  in  Integer; 
List:  in  out  query _out_parameter_val_ptr ) ; 


procedure  Put_gen_parameter ( Parm:  in  String; 

Val  :  in  String; 
P_Len :  in  Integer; 
V_Len:  in  Integer; 
List:  in  out  query _gen_parameter_ptr ) ; 

procedure  Put_adt_op (name :  in  String; 

len  :  in  Integer; 

inputs, outputs  :  in  Boolean; 

List  :  in  out  query _adt_operator_ptr ) ; 

procedure  strlen(s:  in  String;  n:  in  out  Integer); 

end  query_aux_pkg; 
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2.       QUERY  AUXB.A 


***    File 
***    Author 
***    Date 


query_aux_b . a 
Dogan  Ozdemir 
September    1992 


,  _   *••  +  +  •***•*****•***  +  •**•***  +  **•*•**•****** 


with  Text_Io; 
use  Text_Io; 

package  body  query_aux_pkg  is 


procedure  Put_in_parameter  (Data 

Len 
List 


in  String; 

in  Integer; 

in  out  query_in_parameter_ptr )  is 


begin 

if  List  =  null  then 

List  :=  new  query_in_parameter_list ; 
List . name ( 1 . .Len) : =Data ( 1 . .Len) ; 
List . len : =Len; 
List . link: =null ; 
else 

Put_in_paramieter  (Data,  Len,  List .  link)  ; 
end  if; 
end  Put_in_parameter ; 


procedure  Put_out_parameter (Data 

Len 
List 


in  String; 

in  Integer; 

in  out  query _out_parameter_ptr)  is 


begin 

if  List  =  null  then 

List  :=  new  query _out_parameter_list ; 
List .name ( 1 . .Len) : =Data ( 1 . .Len) ; 
List . len : =Len; 
List . link: =null ; 
else 

Put_out_parameter (Data, Len, List . link) ; 
end  if; 
end  Put_out_parameter; 


procedure  Put_in_parameter_val (Data :  in  String; 

Len  :  in  Integer; 
List:  in  out  query_in_parameter_val_ptr )  is 


begin 

if  List  =  null  then 
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List  :=  new  query_in_parameter_val_list ; 
List .name ( 1 . . Len) : =Data ( 1 . . Len) ; 
List . len : =Len; 
List. link: =null ; 
else 

Put_in_parameter_val (Data, Len, List . link) ; 
end  if; 
end  Put_in_parameter_val; 


procedure  Put_out_parameter_val (Data :  in  String; 

Len  :  in  Integer; 

List:  in  out  query_out_parameter_val_ptr )  is 
begin 

if  List  =  null  then 

List  :=  new  query_out_parameter_val_list ; 
List . name ( 1 . .Len) : =Data ( 1 . .Len) ; 
List . len : =Len; 
List . link : =null ; 
else 

Put_out_parameter_val (Data, Len, List. link) ; 
end  if; 
end  Put_out_parameter_val ; 


in  String; 

in  String; 

in  Integer; 

in  Integer; 

in  out  query _gen_parameter_ptr)  is 


procedure  Put_gen_parameter ( Parm 

Val 
P_Len 
V_Len 
List 
begin 

if  List  =  null  then 

List  :=  new  query _gen_parameter_l ist ; 
List .param( 1 . . P_Len) : =Parm( 1 . . P_Len) ; 
List. val  (1.  .V_Len)  :=Va»l(l.  .V_Len)  ; 
List . link: =null ; 
else 

Put_gen_parameter ( Parm, Val , P_Len, V_Len, List . link) ; 
end  if; 
end  Put_gen_parameter ; 


procedure  Put_adt_op (name :  in  String; 

len  :  in  Integer; 
inputs, outputs  :  in  Boolean; 
List  :  in  out  query _adt_operator_ptr )  is 


115 


begin 

if  List  =  null  then 

List  :=  new  query_adt_operator_list ; 
List . op_name ( 1 . . len) : =  name ( 1 . . len) ; 
List .has_inputs : =inputs ; 
List . has_outputs : =outputs ; 
List .op_in_par : =  query_in_par_ptr ; 
List . op_in_par_val : =  query_in_par_val_ptr ; 
List .op_out_par : =query_out_par_ptr ; 
List .op_out_par_val : =query_out_par_val_ptr ; 
List . link: =null; 
else 

Put_adt_op (name, len, inputs , outputs , List . link) ; 
end  if; 
query_in_par_ptr : =null ; 
query_in_par_val_ptr : =null ; 
query_out_par_ptr : =null ; 
query_out_par_val_ptr : =null ; 
end  Put_adt_op; 


procedure  strlen(s:  in  String;  n:  in  out  Integer)  is 

I  :  Integer  : =  1; 
char : Character :=' x ' ; 
endstr : Boolean : =False ; 

begin 

while  endstr=False  loop 
begin 
char : =s ( I ) ; 
I:=I+1; 
exception 

when  constraint_error  =>  endstr : =True; 
end; 
end  loop;  > 

n:=  1-1; 
end  strlen; 


end  query_aux_pkg; 
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I.      QUERY_COMPOSE_PKG 


-■ 


1.      QUERY  COMPOSE  S.A 


***  File 

***  Author 

***  Date 

+  ***********•**********************  +  *************•  +  **  +  +  *******■*•*  +  *** 


query_compose_s . a 
Dogan  Ozdemir 
September  1992 


with  text_io, query_aux_pkg, component_aux_pkg, 
use  text_io, query_aux_pkg, component_aux_pkg; 

package  query_compose_pkg  is 


inpar_ptr 

outpar_ptr 

inparv_ptr 

outparv_ptr 

genpar_ptr 

adtop_ptr 

r_adtop_ptr 

opin_par 

opin_parv 

opout_par 

opout_parv 

outf ile 

genf  ile 

actual_val 

gen_f ound 


query_in_parameter_ptr ; 
query _out_parameter_ptr ; 
query_in_parameter_val_ptr ; 
query_out_parameter_val_ptr ; 
gen_parameter_ptr ; 
query_adt_operator_ptr ; 
adt_operator_ptr ; 
query_in_parameter_ptr ; 
query_in_parameter_val_ptr ; 
query _out_parameter_ptr ; 
query _out_parameter_val_ptr ; 
f ile_type; 
f ile_type; 
string  (1 .  .80)  ; 
Boolean : =False; 


procedure  non_generic_operator ; 

procedure  generic_operator ; 

procedure  non_generic_adt ; 

procedure  generic_adt ; 

end  query_compose_pkg; 


2.      QUERYCOMPOSEB.A 


***  File 
***  Author 
***  Date 


query_compose_b . a 
Dogan  Ozdemir 
September  1992 


********************■******************  +  ********•***********•*•****** 

with  text_io, query _compose_pkg; 
use  text_io, query _compose_pkg; 

package  body  query _compose_pkg  is 

procedure  non_generic_operator  is 
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begin 

create (outf ile, mode  =  >out_f ile, name  =  >" out  file" )  ; 
create (genf ile, mode=>out_f ile, name=>" gen file" ) ; 

put (genf ile, "        " ) ; 

put (outf ile, "with  "); 

put (outf ile, withname . name ( 1 . .withname . len) ) ; 

put (outf ile, " ; " ) ; 

new_line (outf ile, 2 ) ; 

put (outf ile, "package  "); 

put (outf ile, query name .name ( 1 . . query name .len) ) ; 

put (outf ile, "_pkg  is"); 

new_line (outf ile, 2 ) ; 

put (outf ile, "   procedure  " ) ; 

put (outf ile, queryname . name ( 1 . .queryname . len) ) ; 

if  query_has_in_param  then 
put (outf ile, "  ( " ) ; 
inpar_ptr: =  query_in_par_ptr ; 
inparv_ptr:=  query_in_par_val_ptr ; 
while  inpar_ptr  /=  null  loop 
Put (outf ile, inpar_ptr . name) ; 
inpar_ptr : =inpar_ptr . link; 
Put (outf ile, "  :  in  "); 

Put (outf ile, inparv_ptr . name ( 1 . . inparv_ptr . len)  ) ; 
inparv_ptr:=  inparv_ptr . link; 
if  inpar_ptr  /=  null  then 
Put (outf ile, " ; " ) ; 

new_line (outf ile) ;  set_col (outf ile, 13 ) ; 
else 

if  query _has_out_param  then 
Put (outf ile, " ; " ) ; 

new_line (outf ile) ;  set_col (outf ile, 13 
exit  ; 


else 


Put (outf ile, "  ) ") 
new  line (outf ile) 


end  i  f ; 
end  if; 
end  loop; 
end  if; 

if  query _has_out_param  then 
if  query_has_in_param  then 
null  ; 
else 

put (outf ile, " (" ) ; 
end  i  f ; 
outpar_ptr:=  query _out_par_pt r ; 
outparv_ptr : =  query _out_par_val_ptr ; 
while  outpar_ptr  /=  null  loop 

Put (outf ile, outpar_ptr . name ( 1 . .outpar_ptr .len)  ) ; 
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outpar_ptr:=  outpar_ptr . link; 
Put (outf ile, "  :  out  "); 

Put (outf ile, outparv_ptr . name ( 1 . . outparv_ptr . len) ) 
outparv_ptr : =outparv_ptr . link; 
if  outpar_ptr  /=  null  then 
Put (outf ile, " ; " ) ; 

new_line (outf ile) ; set_col (outf ile, 13  )  ; 
else 

Put (outf ile, "  ) " ) ; 
new_line (outf ile) ; 
end  i  f ; 
end  loop; 
end  if; 

new_line (outf ile ) ; 
put (outf ile, "  renames  "); 
put (outf ile, withname .name) ; 
put (outf ile, " . " ) ; 

put (outf ile, withname . name ( 1 . . (withname . len-3 ) ) ) ; 
put (outf ile, " ; " ) ; 
new_line (outf ile, 2 ) ; 
put (outf ile, "end  "); 

put ( out  file, queryname . name ( 1 .  . queryname . len )  )  ; 
put (outf ile, "_pkg; " ) ; 
close (outf ile) ; 
end  non_generic_operator ; 


procedure  generic_operator  is 

begin 

create (outf ile, mode=>out_f ile, name=>" out file" ) ; 
create (genf ile, mode=>out_f ile, name=>"genf ile" ) ; 
put (genf ile, "generic" ) ; 
put (outf ile, "with  "); 

put (outf ile, withname .name ( 1 . .withname .len) ) ; 
put (outf ile, " ; " ) ; 
new_line (outf ile, 2 ) ; 
put (outf ile, "package  "); 

put (outf ile, queryname . name ( 1 . .queryname . len) ) ; 
put (outf ile, "_pkg  is"); 
new_line (outf ile, 2) ; 

--At  this  point  we  need  actual  values  of  generic  units  for 
instantiation . 

--now  continue  with  instantiation 

put (outf ile, "   package  tmp_" ) ; 

put ( out  file, queryname . name ( 1 . . queryname . len ) ) ; 

put (outf ile, "_pkg  is  new  "); 
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put (outf ile, withname .name ( 1 . .withname . len) ) ; 
put (outf ile, "  (  " ) ; 
genpar_ptr : =gen_par_ptr ; 
while  genpar_ptr  /=  null  loop 
Put (outf ile, genpar_ptr . val ) ; 
if  genpar_ptr . link  /=  null  then 
Put (outf ile,  "  ,  "  )  ; 
end  if; 
genpar_ptr : =genpar_ptr . link; 
end  loop; 

put (outf ile, "  ) ;") ; 
new_line (outf ile,  2 )  ; 

--now  rename 

put (outf ile, "   procedure  "); 

put (outf ile, queryname . name ( 1 . .queryname . len) ) ; 

if  query_has_in_param  then 
put (outf ile, "  ( " ) ; 
inpar_ptr:=  query_in_par_ptr ; 
inparv_ptr:=  query_in_par_val_ptr ; 
while  inpar_ptr  /=  null  loop 

Put (outf ile, inpar_ptr .name ( 1 . . inpar_ptr .len)  ) j 
Put (outf ile, "  :  in  "); 
inpar_ptr : =inpar_ptr . link; 

genpar_ptr : =gen_par_ptr ; 
while  genpar_ptr  /=  null  loop 

if  inparv_ptr . name  =  genpar_ptr .param  then 
Put (outf ile, genpar_ptr .val ) ; 
gen_f ound : =True ; 
exit  ; 
end  if; 

genpar_ptr : =genpar_ptr . link; 
end  loop; 
if  gen_found=False  then 

Put (outf ile, inparv_ptr .name ( 1 . . inparv_ptr . len] 
end  i  f ; 
gen_f ound : =False  ; 

inparv_ptr:=  inparv_ptr . link; 
if  inpar_ptr  /=  null  then 
Put (outf ile, " ; " ) ; 
new_line (outf ile) ; 
set_col (outf ile, 13 ) ; 
else 

if  query _has_out_param  then 
Put (outf ile, " ; " ) ; 
new_line (outf ile) ; 
set_col (outf ile, 13 ) ; 


120 


else 


exit  ; 

Put (outf ile, "  ) " ) ; 
new_line (out  file )  ; 


end  i  f ; 
end  if; 
end  loop; 
end  i  f ; 

if  query_has_out_param  then 
if  query _has_in_j?aram  then 
null; 
else 

put (outf ile,  "  (  "  )  ; 
end  if; 
outpar_ptr:=  query _out_par_ptr; 
outparv_ptr : =  query _out_par_val_ptr ; 
while  outpar_ptr  /=  null  loop 

Put (outf ile, outpar_ptr . name ( 1 . .outpar_ptr . len)  ) ; 
outpar_ptr:=  outpar_ptr . link; 
Put (outf ile, "  :  out  " ) ; 

genpar_ptr : =gen_par_ptr ; 

while  genpar_ptr  /=  null  loop 

if  outparv_ptr .name  =  genpar_ptr .param  then 
Put (outf ile, genpar_ptr . val ) ; 
gen_f ound : =True ; 
exit  ; 
end  if; 

genpar_ptr : =genpar_ptr . link; 
end  loop; 
if  gen_found=False  then 

Put (outf ile, outparv_ptr .name ( 1 . .outparv_ptr .len) 
end  i  f ; 
gen_f ound : =False ; 

outparv_ptr  :  =outparv_ptr  .  link;- 
if  outpar_ptr  /=  null  then 
Put (outf ile,  ";")  ; 
new_line (outf ile) ; 
set_col (outf ile, 13) ; 
else 

Put (outf ile, "  ) " ) ; 
new_line (outf ile) ; 
end  i  f ; 
end  loop; 
end  if; 

new_line (outf ile) ; 
put (outf ile, "  renames  tmp_" ) ; 
put (outf ile, queryname .name ( 1 . .queryname . len) ) ; 
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put (outf ile, "_pkg . " ) ; 
put (outf ile, withname .name ( 
put (outf ile, " ; " ) ; 
new_line (outf ile, 2 ) ; 
put (outf ile, "end  " ) ; 
put (outf ile, queryname . name 
put (outf ile, "_pkg; " ) ; 
close (outf ile) ; 
end  generic_operator ; 


(withname . len-3 ) ) 


1 . . queryname . len ) 


procedure  non_generic_adt  is 

begin 

create (outf ile, mode=>out_f ile, name=>" out file" ) 
create (genfile, mode=>out_f ile, name=>" gen file" ) 
put (genfile, "        " ) ; 
put (outf ile, "with  "); 

put (outf ile, withname .name ( 1 . .withname .len) ) ; 
put (outf ile, " ; " ) ; 
new_line (outf ile, 2 ) ; 
put (outf ile, "package  "); 

put (outf ile, queryname .name ( 1 . .queryname . len) ) ; 
put (outf ile, "_pkg  is"); 
new_line (outf ile, 2 ) ; 

adtop_ptr : =query_adt_op_ptr ; 
r_adtop_ptr : =  adt_op_ptr; 
while  adtop_ptr  /=  null  loop 

put (outf ile, "   procedure  " ) ; 

Put (outf ile, adtop_ptr .op_name) ; 

if  adtop_ptr .has_inputs  then 
put (outf ile, "  (" ) ; 
opin_par : =adtop_ptr . op_in_par ; 
opin_parv: =adtop_ptr .op_in_par_val ; 
while  opin_par  /=  null  loop 
put (outf ile, opin_par . name) ; 
opin_par : =opin_par . link; 

Put (out file, "  :  in  " ) ; 
put (outf ile, opin_parv. name) ; 
opin_parv: =opin_parv. link; 
if  opin_par  /=  null  then 

Put (outf ile, " ; " ) ; 
new_line (outf ile) ; 
set_col (outf ile, 13) ; 
else 

if  adtop_ptr .has_outputs  then 
Put (out file,  "  ;  ")  ; 
new  line (outf ile) ; 
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set_col (outf ile, 13  )  ; 
exit ; 
else 

Put (outf ile, "  ) " ) ; 
new_line (outf ile) ; 
end  if; 
end  i  f ; 
end  loop; 
end  i  f ; 

if  adtop_ptr .has_outputs  then 
if  adtop_ptr .has_inputs  then 
null; 
else 

put (outf ile, " ( " ) ; 
end  if; 

opout_par : =adtop_ptr . op_out_par ; 
opout_parv: =adtop_ptr .op_out_par_val ; 
while  opout_par  /=  null  loop 
Put (outf ile, opout_par .name) ; 
opout_par : =opout_par . link; 
Put (outf ile, "  :  out  " ) ; 
put (outf ile, opout_parv.name) ; 
opout_parv : =opout_parv . 1  ink ; 
if  opout_par  /=  null  then 

Put (outf ile, " ; " ) ; 
new_line (outf ile) ; 
set_col (outf ile, 13 ) ; 


else 


Put (outf ile, "  )"); 
new_line (outf ile) ; 


end  if; 
end  loop; 
end  if; 
new_line (outf ile) ; 
put (outf ile, "  renames  "); 
put (outf ile, withname .name) ; 
put (outf ile, "  .  " ) ; 
put (outf ile, r_adtop_ptr .op_name) ; 
put (outf ile, ";■) ; 
new_line (outf ile, 2 ) ; 
r_adtop_ptr : =r_adtop_ptr . link; 
adtop_ptr:=  adtop_ptr . link; 
end  loop; 

put (outf ile, "end  ") ; 

put (outf ile, queryname .name ( 1 . .queryname . len) 
put (outf ile, "_pkg; " ) ; 
close (outf ile) ; 
end  non_generic_adt ; 
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procedure  generic_adt  is 

begin 

create (outf ile,mode=>out_f ile, name=>" out file" ) ; 
create (genf ile, mode=>out_f ile, name=>"genf ile" ) ; 
put (genf ile, "generic" ) ; 
put (outf ile, "with  " ) ; 

put (outf ile, withname . name ( 1 . .withname . len) ) ; 
put (outf ile, " ; " ) ; 
new_line (outf ile, 2 ) ; 
put (outf ile, "package  "); 

put (outf ile, query name . name ( 1 . .query name .len) ) ; 
put (outf ile, "_pkg  is"); 
new_line (outf ile, 2 ) ; 

put (outf ile, "   package  tmp_" ) ; 

put (outf ile, queryname . name ( 1 . .queryname . len) ) ; 

put (outf ile, "_pkg  is  new  "  )  ; 

put (outf ile, withname .name ( 1 . .withname .len) ) ; 

put (outf ile, "  (  " ) ; 

genpar_ptr : =gen_par_ptr ; 

while  genpar_ptr  /=  null  loop 

Put (outf ile, genpar_ptr . val) ; 

if  genpar_ptr . link  /=  null  then 
Put (outf ile, " ,  " ) ; 
end  if; 

genpar_ptr : =genpar_ptr . link; 
end  loop; 
put (outf ile, "  ) ; " ) ; 
new_line (outf ile) ; 

--now  rename 

adtop_ptr : =query_adt_op_ptr ; 
r_adtop_ptr : =  adt_op_ptr; 
while  adtop_ptr  /=  null  loop 
put (outf ile, "   procedure  "); 
Put (outf ile, adtop_ptr .op_name) ; 

if  adtop_ptr .has_inputs  then 
put (outf ile, "  ( " ) ; 
opin_par : =adtop_ptr . op_in_par ; 
opin_parv: =adtop_ptr .op_in_par_val ; 
while  opin_par  /=  null  loop 

put (outf ile, opin_par .name) ; 

opin_par : =opin_par . link; 

Put (outf ile, "  :  in  ") ; 

--generic  par  check  is  to  go  here  for  generic  proc 

genpar_ptr : =gen_par_ptr ; 

while  genpar_ptr  /=  null  loop 

if  opin_parv. name=genpar_ptr .param  then 
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Put (outf ile, genpar_ptr . val ) ; 
gen_f ound : =True ; 
exit  ; 
end  if; 

genpar_ptr : =genpar_ptr . link; 
end  loop; 

if  gen_found=False  then 

put (outf ile, opin_parv. name) ; 
end  if; 

gen_f ound : =Fa 1 s  e ; 

opin_parv: =opin_parv. link; 
if  opin_par  /=  null  then 

Put (outf ile, " ; " ) ; 
new_line (outf ile) ; 
set_col (outf ile, 13  )  ; 
else 

if  adtop_ptr .has_outputs  then 
Put (outf ile,  " ; " )  ; 
new_line (outf ile) ; 
set_col (outf ile, 13 ) ; 
exit  ; 
else 

Put (outf ile, "  ) " ) ; 
new_line (outf ile) ; 
end  if; 
end  if; 
end  loop; 
end  if; 

if  adtop_ptr .has_outputs  then 
if  adtop_ptr .has_inputs  then 
null; 
else 

put (outf ile, "  ( " )  ; 
end  if; 
opout_par  :  =adtop_ptr  i,op_out_par  ; 

opout_parv: =adtop_ptr .op_out_par_val ; 
while  opout_par  /=  null  loop 
Put (outf ile, opout_par . name) ; 
opout_par : =opout_par . 1  ink ; 
Put (outf ile, "  :  out  "); 
--generic  par  check 
genpar_ptr : =gen_par_ptr ; 
while  genpar_ptr  /=  null  loop 
if  opout_parv.name=genpar_ptr .param  then 
Put (outf ile, genpar_ptr .val) 
gen_f ound : =True ; 
exit  ; 


end  if; 


genpar_ptr : =genpar_ptr . link; 
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end  loop; 

if  gen_found=False  then 

put ( out  file, opout_parv . name )  ; 
end  i  f ; 

gen_found: =False; 

opout_parv : =opout_parv .link; 
if  opout_par  /=  null  then 

Put (outf ile, " ; " ) ; 
new_line (out file) ; 
set_col (outf ile, 13) ; 
else 

Put (outf ile, "  ) " ) ; 
new_line (outf ile) ; 
end  if; 
end  loop; 
end  i  f ; 
new_line (outf ile) ; 
put (outf ile, "  renames  tmp_" ) ; 

put (outf ile, query name .name ( 1 . .query name . len) ) ; 
put (outf ile, "_pkg . " ) ; 
put (outf ile, r_adtop_ptr .op_name) ; 
put (outf ile, " ; " ) ; 
new_line (outf ile,  2 )  ; 
adtop_ptr : =adtop_ptr . link; 
r_adtop_ptr : =r_adtop_ptr . link; 
end  loop; 

put (outf ile, "end  " ) ; 

put (outf ile, query name .name ( 1 . .query name .len) ) ; 

put (outf ile, "_pkg; " ) ; 

close (outf ile) ; 

end  generic_adt ; 

end  query_compose_pkg; 
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J.      QUERY_PARSE.A 


__  ***  File 


query _parse . a 
Dogan  Ozdemir 
September  1992 


***  Author 

***  Date 
******************************************************************** 


with  u_env, queryparser, query_lex_io, query_lex, text_io, 

query_aux_pkg, query _compose_pkg ; 
with  component_parser , psdl_lex_io, psdl_lex, 

component_aux_pkg ; 

use  u_env, queryparser, text_io, query_aux_pkg, 

query_compose_pkg ; 
use  component_parser , component_aux_pkg; 

procedure  main  is 

lastl,last2         : integer : =0 ; 

begin 

if  u_env.Argc  =  3  then 

component_aux_pkg . strlen ( Argv ( 1 ) . S , lastl ) ; 
component_aux_pkg . strlen (Argv(2) .S, last2 ) ; 
psdl_lex_io .open_input ( Argv( 1)  . S ( 1 .  .  lastl) )  ; 
psdl_lex_io . create_output ; 

--starting  parse  retrived  psdl  (Argv(l)) 

component_parser . yyparse ; 

psdl_lex_io . close_input ; 

psdl_lex_io . close_output ; 

query_lex_io .open_input (Argv (2 ) .S ( 1 . . Iast2 ) ) ; 

query_lex_io . create_output ; 

--starting  parse  query  psdl  (Argv(2)) 

queryparser .yyparse; 
query_lex_io . close_input ; 
query_lex_io . close_output ; 


if  query_is_operator  then 

if  is_generic  then 

query _compose_pkg . generic_operator ; 
elsif  is_generic=False  then 

query_compose_pkg . non_generic_operator , 
end  i  f ; 
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elsif  query_is_adt  then 

if  is_generic  then 

query_compose_pkg . gener ic_adt ; 
elsif  is_generic=False  then 

query_compose_pkg . non_generic_adt ; 
end  if; 

end  i  f ; 

else 

put_line ( "Wrong  number  of  arguments"); 
end  if; 

end  main; 
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APPENDIX  D  -  SOURCE  CODE  FOR  GUI 


SOFTBASE.A 


'**  TAE  Plus  Code  Generator  version  V5 . 1 


-  ***  File 

.-  ***  Generated 

■-  ***  Revised  by 


sof tbase .a 

May  21  16:12:31  1992 

Dogan  Ozdemir 


sof tbase 


--  Main  program  BODY 


PURPOSE: 

This  is  the  main  program  of  an  application  generated  by  the  TAE  Plus 

Code  Generator. 

REGENERATED : 

This  file  is  generated  only  once. 

NOTES : 

To  turn  this  into  a  real  application,  do  the  following: 

1.  Each  panel  that  has  event  generating  parameters  is  encapsulated  by 
a  package.   Each  parameter  that  you  have  defined  to  be  " event - 
generating" , has  an  event  handler  procedure  in  the  appropriate  panel's 
package  body.  The  panel's  package  body  is  in  a  file,  named  by 
concatenating  the  string  "pan_"  with  the  panel  name  (followed  by 
"_b.a") .   Each  handler  has  a  name  that  is  a  concatenation  of  the 
parameter  name  and  the  string  "_Event" 

Add  application-dependent  logic  to  each  event  handler. 

(As  generated  by  the  Workbench,  each  event  handler  simply  logs  the 

occurrence  of  the  event . ) 

2.  See  the  "TAE  Plus  Ada  Programmer's  Guide"  for  directions  on  how 
to  compile  and  link  this  program. 


ADDITIONAL  NOTES: 

In  TAE  Plus  version  4.1,  every  TAE  Ada  application  caused  the  screen 

to  be  cleared  as  part  of  the  initialization  of  the  tae_termio  package. 

In  TAE  Plus  version  5.0,  the  TAE  Ada  bindings  have  been  changed  so  as 

not  to  clear  the  screen  by  default.   Simply  adding  a  call  to 

TAE .Tae_Termio .T_Clear  will  produce  the  same  results  as  4.1. 


with  TAE; 
with  Text_I0; 
with  Global; 
with  U_Env; 
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use  Text_IO, Global; 

--  PROGRAMMER  NOTE: 

--  add  one  "with"  for  each  resource  file  in  this  application 

with  sof tbase_Support ; 

procedure  softbase  is 


Wpt_Event 

Type_of_Wpt_Event 

User_Context_Ptr 

Pane l_In_Re sour ce_File 

UNKNOWN_WPT_EVENT 

L 


TAE . Tae_Wpt . Wpt_Eventptr ; 
Tae .Wpt_Eventtype ; 
TAE.Tae_Wpt .  Event_Context_Ptr  ,• 
Boolean; 
Exception; 
Integer :  =1 ; 


begin  --  softbase 

--  permit  upper/ lowercase  file  names 
TAE.Tae_Misc . F_Force_Lower  (FALSE) ; 

TAE.Tae_Wpt .Wpt_Init  ("",  Global .Default_Display_Id) ; 

--  initialize  resource  file 

--  PROGRAMMER  NOTE: 

--  For  each  resource  file  in  this  application,  calls  to  the  approriate 

--  Initialize_All_Panels  and  Create_Initial_Panels  must  be  added. 

sof tbase_Support . Initialize_All_Panels ( " /n/gemini/work/ozdemir/tae/ 
work/sof tbase . res " ) ; 

sof tbase_Support .Create_Initial_Panels ; 

TAE . Tae_Wpt . Wpt_NewEvent  (Wpt_Event ) ; 

--ADDED 

Global. Strlen(U_Env.Argv(l)  .S&"  "  ,  L)  ; 

path ( 1 . . L) : =U_Env . Argv ( 1 ) . S ; 

Global .Strlen ( U_Env . Argv ( 2 )  .S&"  " ,  L) ; 

proto_pref ix( 1 . .L) : =U_Env . Argv ( 2 ) .  S; 


EVENT_LOOP: 

while  not  Global . Application_Done  loop 

--  PROGRAMMER  NOTE: 
--  use  Global  .Set_Application_Done  in  "quit"  event  handler  to  exit  loop 

--  Wait  for  the  next  event 

TAE.Tae_Wpt .Wpt_Next Event 
(  Event  =>  Wpt_Event, 
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Etype  =>  Type_of_Wpt_Event  ) ; 

case  Type_of_Wpt_Event  is 

when  TAE.Tae_Wpt .WPT_PARM_EVENT  => 

--  Panel  event  has  occurred. 

--  PROGRAMMER  NOTE: 

--  Get  the  user  context  (which  is  stored  in  the  panel  object 
--  when  Wpt_NewPanel  is  called) . 

TAE.Tae_Wpt . Wpt_Extract_Context 
(  Event     =>  Wpt_Event , 

User_Ptr  =>  User_Context_Ptr  ) ; 

--  Get  the  parameter  name 

TAE.Tae_Wpt . Wpt_Extract_Parm 
(  Event     =>  Wpt_Event, 

Parm      =>  User_Context_Ptr . Parm_Name  ) ; 

--  Get  target  id 

TAE.Tae_Wpt .Wpt_Extract_Data 
(  Event     =>  Wpt_Event, 

Data     =>  User_Context_Ptr .Datavm_Ptr  ) ; 

--  Find  Vm  parm  object 

TAE . Tae_Vm . Vm_Find 

(  Vmid     =>  User_Context_Ptr .Datavm_Ptr, 
Name      =>  User_Context_Ptr . Parm_Name, 
Vout      =>  User_Context_Ptr . Parm_Ptr  ) ; 

--  Dispatch  event  to  event  handler 

sof tbase_Support .Dispatch_Panel 

(  User_Context_Ptr       =>  User_Context_Ptr , 

Panel_In_Resource_File  =>  Panel_In_Resource_File  ) ; 

if  (not  Panel_In_Resource_File)  then 

--  PROGRAMMER  NOTE: 

--  For  applications  with  more  than  one  resource  file, 

--  add  a  call  to  Dispatch_Panel  for  each  resource  file. 

Text_IO . Put_Line  ("Unexpected  event  from  wpt ! " ) ; 
raise  TAE .Tae_Wpt .BAD_EVENT_ID; 
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end  if; 


when  TAE.Tae_Wpt .WPT_FILE_EVENT  => 

Text_IO. Put_Line  ("No  EVENT_HANDLER  for  event  from  external 
source .  "  )  ; 

--  PROGRAMMER  NOTE: 

--  Add  code  here  to  handle  file  events. 

--  Use  Wpt_AddEvent  and  Wpt_RemoveEvent  to  register  and  remove 

--  event  sources. 

--  Use  Wpt_Extract_EventSource  and  Wpt_Extract_EventMask  to  get 

--  information  about  the  event  that  occurred. 


when  TAE.Tae_Wpt.WPT_WINDOW_EVENT  => 

null; 

--  PROGRAMMER  NOTE: 

--  Add  code  here  to  handle  window  events. 

--  WPT_WINDOW_EVENT  can  be  caused  by  windows  which  you  directly 


create 


--  with  X  (not  TAE  panels),  or  by  user  acknowledgement  of  a 

--  Wpt_PanelMessage  (therefore  no  default  put_line  statement  is 

--  generated  here) . 

--  You  MIGHT  want  to  use  Wpt_Extract_xEvent_Type  here. 

--  DO  NOT  use  Wpt_Extract_Parm_xEvent  since  this  is  not 

--  a  WPT_PARM_EVENT;  you  may  get  a  "storage  error". 


when  TAE.Tae_Wpt.WPT_TIMEOUT_EVENT  => 

Text_IO.Put_Line  ("STUB:  Event  WPT_TIMEOUT_EVENT" ) ; 

--  PROGRAMMER  NOTE: 

--  Add  code  here  to  handle  timeout  events. 

--  Use  Wpt_SetTimeOut  to  register  timeout  events. 

--  These  are  internal  TAE  events.   The  application  should  never  see 
them. 

--  when  TAE.Tae_Wpt.WPT_HELP_EVENT  => 

--  when  TAE.Tae_Wpt.WPT_INTERRUPT_EVENT  => 

when  others  => 

raise  UNKNOWN_WPT_EVENT ; 
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end  case; 

end  loop  EVENT_LOOP; 

--  PROGRAMMER  NOTE: 

--  Application  has  ended  normally.   Add  application  specific  code  to 

--  close  down  your  application. 

exception 

when  UNKNOWN_WPT_EVENT  => 

Text_IO.Put  ("FATAL  ERROR:  Unknown  Wpt_NextEvent  Event  Type:  "); 
Text_IO.Put  ( TAE.Wpt_Event type ' image (Type_of_Wpt_Event )  )  ; 
Text_IO . Put_Line  ("  ...  Forced  exit."); 

end  softbase; 
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B.      GLOBAL  PACKAGE 


1.       GLOBAL  S.A 


***    TAE    Plus    Code   Generator   version   V5 . 1 

***    File  :    global_s.a 

May    21    16:12:31    1992 

Dogan  Ozdemir 
*•*************  +  ***********•*******■********•*******************•*•*  +  * 


***  Generated 
***  Revised  by 


Global 


--  Package  SPEC 


**•••••••**•*•••******  +  •****••*•*•**•*•••*•••*  +  •**•*•  +  ••*•■*•**•*•*•* 

with  X_Windows; 

with  Text_IO; 

with  TAE; 

with  SYSTEM; 

use  TAE, SYSTEM, Text_IO; 

package  Global  is 


PURPOSE: 

This  package  is  automatically  "with"ed  in  to  each  panel  package  body 

You  can  insert  global  variables  here. 

REGENERATED : 

This  file  is  generated  only  once. 


package  Taefloat_IO  is  new  Text_IO . Float_IO  (TAE .Tae float ) ; 

Def ault_Display_Id  :  X_Windows . Display ; 

--ADDED 


library 

lib_to_delete 

path 

proto_pref ix 

Query _psdl 

Directory 

kwqu e ry _ou t f i 1 e 

query_outf ile 

component 

directory_array 

directory_f ile_name 

lib_vec 

f ile_vec 

I s_a_di rectory 


String  (1 
String  (1 
String (1 . 
String (1 . 
Stringd. 
String (1 . 
Stringd.  .15) 
Stringd.  .13) 
Stringd.  -80) 


.10 
.10 
80) 
80) 
80) 
80) 


: =  (others=> '  ' ) ; 
:=  (others=>' 
=  (others=>' 
(others=> ' 
:=  (others=>' 
:=  (others=>' 
= " kwquery_out  file" ; 
=" query _outf ile" ; 
=  (others=> '  ' ) ; 
String  (1..27):=  (others=>'  '); 
Stringd  ..  14)  :=  "directory_f  ile"  ; 
s_vector (1 . .20) :=  (others=>  new  STRING (1..1 
s_vector (1 .  .200)  :=  (others  =  >  new  STRING (1.. 
Boolean: =FALSE; 


0 


10)); 
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Upper_directory 
Component_add 
Component_update 
Query 

cur r en t_di rectory 
directory_f ile 
cur_dir_index 
lib_count 
num_of_comp 
com  : 

parse 
integrate/ " ; 


Boolean 
Boolean 
Boolean 
Boolean 


=FALSE 
=FALSE 
=FALSE 
=FALSE 


array (1.. 20)  of  String ( 1 .. 80 ) ; 
f ile_type ; 
integer : =1 ; 
integer : =0 ; 
integer :=1; 

constant  String : =" $HOME/caps/src/sof tware_base/sb 
:  constant  String :=" $H0ME/ caps/ src/sof tware_base- 


Application_Done 


-  Subprogram  SPEC 


function  Application_Done 
return  Boolean; 

--I  PURPOSE: 

--I  This  function  returns  true  if  a  "quit"  event  handler  has  called 

-- I  Set_Application_Done,  otherwise  it  returns  false. 


Set_Application_Done 


--  Subprogram  SPEC 


procedure  Set_Application_Done; 

--I  PURPOSE: 

--I  This  procedure  can  be  used  by  an  event  handler,  typically  a  "quit" 

--I  button,  to  signal  the  end  of  the  application. 

--ADDED 


system_call 


Subprogram  SPEC 


procedure  system_call (command  :  STRING); 

--I  PURPOSE: 

—  I  This  procedure  is  used  to  make  unix  system  calls  from  within  the 

-- I  program. 
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strlen  --  Subprogram  SPEC 


procedure  strlen(s:  in  String;  n:  in  out  Integer); 

--I  PURPOSE: 

--I  This  procedure  is  used  to  get  the  length  of  strings 


list_directory  --  Subprogram  SPEC 


procedure  list_directory ( f ile      : in  out  file_type; 

file_name:in  out  string; 

file_vec  : in  out  s_vector; 

I  :  in  out  integer); 

--I  PURPOSE: 

-- I  This  procedure  is  used  to  obtain  the  contents  of  unix  directory 

-- I  structures . 


list_components  --  Subprogram  SPEC 


procedure  list_components ( f ile      : in  out  file_type; 

file_name:in  out  string; 
file_vec  : in  out  s_vector; 
I         : in  out  integer); 

--I  PURPOSE: 

-- I  This  procedure  is  used  to  read  the  component  list  from  a  text  file  and 
--I  fill  them  into  a  s_vector  structure  to  be  displayed  in  a  TAE  panel. 


read_directory  --  Subprogram  SPEC 


procedure  read_directory ( f ile      : in  out  file_type, 

file_name:in  out  string; 
dir_name  : in  out  string); 
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--I  PURPOSE: 

-- I  This  procedure  is  used  to  read  the  name  of  the  current  directory  and 

--I  to  get  the  path  from  a  text  file. 


errorstring  --  Subprogram  SPEC 


procedure  errorstring ( file      : in  out  file_type; 

file_name:in  out  string; 
err_str   : in  out  string); 

--I  PURPOSE: 

-- I  This  procedure  is  used  to  read  the  error  message  given  by  the 

-- I  software  base  program. 


parse_line  --  Subprogram  SPEC 


procedure  parse_line ( s :  in  String); 

--I  PURPOSE: 

--I  This  procedure  is  used  to  determine  if  the  selected  line  is  a 

-- I  directory  or  a  file  and  if  it  is  a  directory  it  gets  the  identity 

--I  of  the  directory. 

end  Global; 
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2.   GLOBAL  B.A 


***  TAE  Plus  Code  Generator  version  V5 . 1 

***  File 

***  Generated 

***  Revised  by 


global_b .a 

May  21  16:12:31  1992 

Dogan  Ozdemir 


**************************************************************** 

* 

*     Global  --  Package  BODY 

* 

******************************************************************* 

package  body  Global  is 

- -  I  REGENERATED : 

--I  This  file  is  generated  only  once. 

Is_Application_Done  :  Boolean  :=  FALSE; 


Application_Done  --  Subprogram  BODY 

function  Application_Done  return  Boolean  is 
begin 

return  Is_Application_Done; 
end  Application_Done; 

Set_Application_Done  --  Subprogram  BODY 

procedure  Set_Application_Done  is 

begin 

Is_Application_Done  :  =  TRUE; 
end  Set_Application_Done; 
--ADDED 
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system_call  --  Subprogram  BODY 


procedure  system_call (command  :  STRING)  is 

procedure  system_c  (command  :  ADDRESS); 
pragma  INTERFACE (C,  SYSTEM_C); 
pragma  INTERFACE_NAME (SYSTEM_C,  "_system" ) ; 
TEMP  :  constant  STRING  :=  command&ASCII .NUL; 
ERROR  :  INTEGER ; 

begin 

SYSTEM_C ( TEMP ' ADDRESS ) ; 
end  system_call; 


strlen  --  Subprogram  BODY 


procedure  strlen (s:  in  String;  n:  in  out  Integer)  is 

I  :  Integer  :=  1; 

begin 
loop 
if  s(I)  =  '  '  then 

exit  ; 

end  if; 

I:=I+1; 

end  loop; 

n:=  1-1; 

end  strlen; 


list_directory  --  Subprogram  BODY 

procedure  list_directory ( f ile : in  out  file_type; 

file_name:in  out  string; 
file_vec  :  in  out  s_vector; 
I         : in  out  integer) is 
len  :  integer  :=1; 

begin 
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I:=l; 

open ( f ile,mode=>in_f ile, name=>f ile_name ) ; 
file_vec(I) .all(l. .2) :=".." ; 

for  cl  in  3..  80  loop 

file_vec(I) .all(cl) :=' 

end  loop; 

while  not  end_of_file  (file)  loop 

I:=I+1; 

Text_IO.get_line (file, f ile_vec (I) .all, len) ; 

for  clean  in  (len+l)..80  loop 

f ile_vec ( I ) .all (clean) : = '  '  ; 

end  loop; 
end  loop; 
close (file) ; 

exception 

when  END_ERROR  =>  null; 

end  list_directory ; 


list_components 


procedure  list_components ( f ile      : in  out  file_type; 

f  ile_naine  :  in  out  string; 
file_vec  :  in  out  s_vector; 
I         : in  out  integer) is 
len:  integer  :=1; 

begin 

i 
I:=l; 
open (file, mode=>in_f ile, name=>f ile_name) ; 

while  not  end_of_file  (file)  loop 

Text_IO.get_line(f ile, f ile_vec ( I ) .all , len) ; 

for  clean  in  (len+l)..80  loop 

f ile_vec (I) .all (clean) := '  '; 

end  loop; 

I:=I+1; 
end  loop; 
I: =1-1; 
close (file) ; 
end  list_components ; 
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read_di rectory 


procedure  read_directory ( f ile      : in  out  file_type; 

file_name:in  out  string; 

dir_name  : in  out  string)  is 
len:  integer  :=1; 

begin 

open ( file, mode=>in_f ile, name=>f ile_name ) ; 

Text_IO .get_line ( f ile, dir_name, len) ; 

close ( file) ; 
end  read_directory ; 


errorstring 


procedure  errorstring ( file      : in  out  file_type, 

f ile_name : in  out  string; 

err_str   : in  out  string) is 
len:  integer  :=1; 

begin 

open ( file, mode=>in_f ile, name=>f ile_name) ; 
Text_IO.get_line (file, err_str, len) ; 
if  len=0  then 

Text_IO .get_line (file, err_str , len) ; 
end  if; 
close (file) ; 
exception 

when  END_ERROR  =>   close ( file) ; 
end  errorstring; 


parse_line 

procedure  parse_line ( s :  in  string)  is 

char : character ; 
N    : integer : =1 ; 

begin 
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strlen ( s , N) ; 
if  s(N)='/'  then 

I s_a_di rectory : =TRUE; 
end  i  f ; 
if  N=2  then 

if  s (1. .2) =" . . "  then 
Upper_directory : =TRUE; 
end  if; 
end  if; 
end  parse_line; 


end  Global; 
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C.      PANEL  LIBRARY  PACKAGE 


1.       PAN  LIBRARY  S.A 


***    TAE    Plus    Code   Generator   version   V5 . 1 


***    File 

***    Generated 

***    Revised   by 


pan_l ibrary_s . a 

May    21    16:12:31    1992 

Dogan  Ozdemir 


**********************************************■*•**■*******  +  *■*■***  +  **•* 


Panel_library 


Package  SPEC 


•  •if********************************************** 


with  TAE; 

with  X_Windows; 

package  Panel_library  is 


PURPOSE: 

This  package  encapsulates  the  TAE  Plus  panel:   library 

These  subprograms  enable  panel  initialization,  creation,  destruction, 

and  event  dispatching.   For  more  advanced  manipulation  of  the  panel 

using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 

It  includes  the  Target  and  View  (available  after  initialization) 

and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
library 


Info  :  TAE .Tae_Wpt . Event_Context_Ptr ;    --  panel  information 


Initialize  Panel 


Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  ) ;    --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 

-- I  panel 


143 


EXCEPTIONS: 

TAE.UNINITIALIZED_PTR  is  raised  if  Collect ion_Read  not  initialized 
TAE.Tae_Co.NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
Collection  Read 


Create  Panel 


■-  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 
: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


Flags  sent  to  Wpt_NewPanel . 


Relative_Window 

:  in  X_Windows .Window 

:=  X  Windows. Null  Window 


Panel  origin  is  offset  from 
this  X  Window.  Null_Window 
uses  the  root  window. 


I  PURPOSE: 
This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Inf o . Panel_Id. 

EXCEPTIONS: 

TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 

TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect  Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt .Wpt_F lags 
:=  TAE.Tae_Wpt.WPT_PREFERRED, 


Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ) ; 


Panel  origin  is  offset  from 
this  X  Window.  Null_Window 
uses  the  root  window. 


PURPOSE: 
If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 

in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 

Info. Panel_Id. 
If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 

In  this  case,  Relative_Window  is  ignored. 
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EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 

not  initialized 
TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 

created 
TAE.Tae_Wpt .BAD_STATE  is  raised  if  the  panel  exists  and  the 

Panel  State  is  an  invalid  state 


Destroy_Panel 


Subprogram  SPEC 


procedure  Destroy_Panel ; 


PURPOSE: 

This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 

associated  panel  object  (not  the  target  and  view) . 

EXCEPTIONS : 

TAE.Tae_Wpt . BAD_PANEL_ID  is  raised  if  Info . Panel_Id  is  an  invalid 

id. 

NOTES : 

I  Info.Panel_Id  is  set  to  TAE.NULL_PANEL_ID,  and  should  not  referenced 
I  in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


•-  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt  .Eve»nt_Context_Ptr  )  ;  --  event. 

--I  PURPOSE: 

—  I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 

--I 

--I  EXCEPTIONS: 

-- I  Application-specific 


end  Panel_library ; 
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2.       PAN  LIBRARY  B.A 


***    TAE    Plus    Code   Generator    version   V5 . 1 


***    File 

***    Generated 

***    Revised   by 


pan_l ibrary_b . a 

May    21    16:12:31    1992 

Dogan  Ozdemir 


**•*••*  +  ***  +  ****•****•**•****•*••  +  ***•****••***••********•**■**■*•**** 

* 

*     Panel_library  --  Package  BODY 
* 

************************  +  ***************************************■**■*■ 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Text_IO, Global ; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel_lbselect ; 
with  Panel_libadd; 
with  Panel_lbdelete; 

package  body  Panel_library  is 

NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event-generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
library 
The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 

An  item's  connection  information  changed 
For  the  panel  items: 

libfunc,         help,  quit 
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Initialize_Panel  --  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 

begin  --  Initialize_Panel 

Info  :=  new  TAE .Tae_Wpt . Event_Context ; 

Info .Collection  :  =  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Info . Collection,  "library_v",  Info. View); 

TAE.Tae_Co.Co_Find  ( Info . Collection,  "library_t",  Info. Target) 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO. Put_Line  ( " Panel_library . Initialize_Panel : 

&  "Collection_Read  not  initialized."); 
raise; 

when  TAE . Tae_Co . NO_SUCH_MEMBER  => 

Text_IO.Put_Line  ( " Panel_library . Initialize_Panel :   " 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel ; 


Create_Panel  --  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 
:=  TAE.Tae_Wpt.WPT_PREFERRED; 

Relative_Window 

:  in  X_Windows .Window 

:=  X  Windows. Null  Window  )  is 


begin  --  Create_Panel 

if  Info.Panel_Id  =  Tae .Null_Panel_Id  then 
TAE . Tae_Wpt . Wpt_NewPane 1 
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(  Dummy  =>  "  "  , 

Data_Vm  =>  Info. Target, 

View_Vm  =>  Info. View, 

Relative_Window  =>  Relative_Window, 

User_Context  =>  Info, 

Flags  =>  Panel_State, 

Panel_Id  =>  Inf o . Panel_Id  ); 

else 

Text_IO . Put_Line  ("Panel  (library)  is  already  displayed."); 

end  if; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO. Put_Line  ( " Panel_library .Create_Panel : 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE.TAE_FAIL  => 

Text_IO. Put_Line  ( " Panel_library .Create_Panel : 

&  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel ; 


Connect_Panel  --  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X  Windows. Null  Window  )  is 


begin  --  Connect_Panel 

if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

(  Relative_Window        =>  Relative_Window, 
Panel_State  =>  Panel_State  ) ; 

else 

TAE. Tae_Wpt.Wpt_Set Pane IState  ( Info . Panel_Id,  Panel_State: 
end  if; 
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exception 

when  TAE.Tae_Wpt . BAD_STATE  => 

Text_IO . Put_Line  ( " Panel_library . Connect_Panel 

&  "Invalid  panel  state."); 
raise; 

end  Connect_Panel ; 


Destroy_Panel  --  Subprogram  BODY 

procedure  Destroy_Panel  is 

begin  --  Destroy_Panel 

TAE .Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 

exception 

when  TAE.Tae_Wpt .BAD_PANEL_ID  => 

Text_IO.Put_Line  ( " Panel_library .Destroy_Panel : 

&  " Inf o . Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE . Tae_Wpt . ERASE_NULL_PANEL  => 
--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
null ; 

end  Destroy_Panel ; 

--  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

--  begin  EVENT  HANDLERS 

libfunc_Event  --  Subprogram  SPEC  &  BODY 


procedure  libfunc_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

Value     :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGS I ZE! 

Count     :  TAE.Taeint; 
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id_file 

id_string 

id 

len,  I, J 


f ile_type ; 

String  (1..80):=  (others=>'  ' ) ; 
String  (1..10):=  (others=>'  '); 
integer  :=1; 


begin  --  libfunc_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf  o  .  Parm_Ptr ,  1,  Valued)); 
end  i  f ; 
system_call ( "whoami  >  id_file"); 
open ( id_f ile, mode=>in_f ile, name=>" id_f ile" ) ; 
get_line ( id_f ile, id_string,  len)  ; 
while  id_string(I)  /=  '  '  loop 
id(J) :=id_string(I) ; 
I:=  1+1; 
J:=J+1; 
end  loop; 
--  End  default  generated  code 
--  Begin  generated  code  for  Connection 

if  TAE .Tae_Misc . s_equal  (Value (1),  "Library  Selection")  then  null; 
Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 
Panel_lbselect .Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 

els if  TAE.Tae_Misc.s_equal  ( Value (1),  "Library  Addition")  then 
if  id(1..4)  =  "root"  then 
Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 
Panel_libadd.Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 
else 

TAE.Tae_Wpt . Wpt_PanelMessage ( inf o . panel_id, "AUTHORIZED 
PERSONNEL  ONLY ! " ) ; 
end  if; 

elsif  TAE.Tae_Misc .  s_equal  (Valued),  "Library  Deletion")  then 
if  id(l. .4)  =  "root"  then 
Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 
Panel_lbdelete.Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 
else 

TAE . Tae_Wpt . Wpt_Pane lMes  sage ( inf o . pane l_id ,  " AUTHORI ZED 
PERSONNEL  ONLY ! " ) ; 
end  i  f ; 
end  if; 
I:=l;  J:=l; 
id:  =  " 

system_call ( "rra  id_file"); 
--  End  generated  code  for  Connection 

end  libfunc_Event ; 
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quit_Event  --  Subprogram  SPEC  &  BODY 


procedure  quit_Event 

(  Info  :  in  TAE .Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf .STRINGSIZE) 
Count  :  TAE.Taeint; 

begin  --  quit_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL    ( Inf  o  .  Parm_Ptr ,     1,    Valued)  ); 
end    i  f ; 

--  End  default  generated  code 
--ADDED 
Global . Set_Application_Done ; 

end  quit_Event ; 

--  end  EVENT  HANDLERS 


Dispatch_Item  --  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE.Tae_Wpt . Event_Context_Ptr  )  is 

begin  --  Dispatch_Item 

if  TAE .Tae_Misc . s_equal  ("libfunc",  User_Context_Ptr . Parm_Name)  then 

libfunc_Event  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Misc . s_equal  ("quit",  User_Context_Ptr . Parm_Name )  then 

quit_Event  (User_Context_Ptr ) ; 
end  if; 

end  Dispatch_Item; 

end  Panel_library ; 
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D.      PANEL  LIBADD  PACKAGE 


1.       PAN  LIBADD  S.A 


--  ***  TAE  Plus  Code  Generator  version  V5 . 1 


***  File 

***  Generated 

***  Revised  by 


pan_libadd_s .a 

May  21  16:12:31  1992 

Dogan  Ozdemir 
•  ••it*************************************************************** 


Panel  libadd 


Package  SPEC 


*■  +  *****  +  ****•***  +  *******************************************•***  +  ■*•* 


with  TAE; 

with  X_Windows; 

package  Panel_libadd  is 


PURPOSE: 

This  package  encapsulates  the  TAE  Plus  panel:   libadd 

These  subprograms  enable  panel  initialization,  creation,  destruction, 

and  event  dispatching.   For  more  advanced  manipulation  of  the  panel 

using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 

It  includes  the  Target  and  View  (available  after  initialization) 

and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
libadd 


Info  :  TAE.Tae_Wpt . Event_Context_Ptr ; 


panel  information 


Initialize  Panel 


•-  Subprogram  SPEC 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae  Co. Collection  Ptr 


•-  TAE  Collection  read  from 
•-  resource  file 


I  PURPOSE: 

I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 

I  panel 


152 


--I  EXCEPTIONS: 

--I  TAE.UNINITIALIZED_PTR  is  raised  if  Collect ion_Read  not  initialized 

--I  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 

--I     Collection_Read 


Create  Panel 


Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


■-  Flags  sent  to  Wpt_NewPanel . 


Re lat  i ve_Window 

:  in  X_Windows .Window 

:=  X  Windows. Null  Window 


■-  Panel  origin  is  offset  from 
■-  this  X  Window.  Null_Window 
-  uses  the  root  window. 


I  PURPOSE: 

I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Inf o . Panel_Id. 

EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 

TAE .TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect  Panel 


Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


Re lat  i ve_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ); 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


PURPOSE: 

If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 
Info. Panel_Id. 
If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 
In  this  case,  Relative_Window  is  ignored. 

EXCEPTIONS: 
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TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 

not  initialized 
TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 

created 
TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 

Panel  State  is  an  invalid  state 


Destroy_Panel 


■-  Subprogram  SPEC 


procedure  Destroy_Panel ; 


PURPOSE: 

This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 

associated  panel  object  (not  the  target  and  view) . 

EXCEPTIONS: 

TAE.Tae_Wpt . BAD_PANEL_ID  is  raised  if  Info . Panel_Id  is  an  invalid 

id. 

NOTES : 

--I  Info. Panel_Id  is  set  to  TAE .NULL_PANEL_ID,  and  should  not  referenced 
--I  in  any  Wpt  call  until  it  is  created  again. 


D i spat ch_I tern 


Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt .Event_Context_Ptr  ) ;  --  event. 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 


--I  EXCEPTIONS: 

--I  Application-specific 

end  Panel_libadd; 
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2.       PAN  LIBADD  B.A 


***    TAE    Plus    Code   Generator   version   V5 . 1 


***    File 

***   Generated 

***    Revised  by 


pan_l ibadd_b . a 

May    21    16:12:31    1992 

Dogan   Ozdemir 


it****************************************************************** 


Panel  libadd 


■-  Package  BODY 


•  it************************************************ 


with  TAE;  use  TAE; 

with  Text_IO;use  Text_IO; 

with  Global; 

with  Panel_lbselect ; 

with  Panel_lbdelete; 

use  Global; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel_library ; 

package  body  Panel_libadd  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event-generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 


REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel : 
libadd 

The  following  WorkBench  operations  will  also  cause  regeneration: 
An  item  is  deleted 
A  new  item  is  added  to  this  panel 
An  item's  name  is  changed  (not  title) 
An  item's  data  type  is  changed 
An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected; 
An  item's  connection  information  changed 
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I  For  the  panel  items: 

I    libname,  rule file, 


ok, 


cancel , 


-ADDED 
rulef ile 
libr 

err_string 
error_f ile 
error  fname 


=  (others=> '  ' ) 
=  (others=> '  ' ) 
=  (others=> '  ' ) 


String  (1.  .15)  : 

String  (1.  .  10)  : 

String  (1 .  .80)  : 

f ile_type; 

String (1.. 9)  :=  "errorf ile" ; 
package  integer_inout  is  new  Text_IO . integer_io ( integer ) ; 
use  integer_inout ; 


Initialize  Panel 


Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 

begin  --  Initialize_Panel 

Info  :=  new  TAE.Tae_Wpt . Event_Context ; 

Info .Collection  :  =  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Info .Collection,  "libadd_v",  Info. View); 

TAE.Tae_Co.Co_Find  ( Info .Collection,  "libadd_t",  Info. Target 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO. Put_Line  ( " Panel_libadd. Initialize_Panel : 

&  "Collection_Read  not  initialized."); 
raise; 

when  TAE.Tae_Co.NO_SUCH_MEMBER  => 

Text_IO.Put_Line  ( " Panel_libadd. Initialize_Panel : 

&  "(View  or  Target)  not  in  Collection."); 
raise ; 


end  Initialize_Panel ; 


Create  Panel 


--  Subprogram  BODY 


procedure  Create_Panel 
(  Panel  State 
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:  in  TAE.Tae_Wpt .Wpt_Flags 

:=  TAE.Tae_Wpt.WPT_PREFERRED; 

Re lat  i ve_Window 

:  in  X_Windows .Window 

: -   X_Windows .Null_Window  )  is 


begin  --  Create_Panel 

if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
TAE.Tae_Wpt . Wpt_NewPanel 

(  Dummy  =>  "  "  , 

Data_Vm  =>  Info. Target, 

View_Vm  =>  Info. View, 

Relative_Window  =>  Relative_Window, 

User_Context  =>  Info, 

Flags  =>  Panel_State, 

Panel_Id  =>  Info . Panel_Id  ); 
else 

Text_IO . Put_Line  ("Panel  (libadd)  is  already  displayed.") 
end  if; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO. Put_Line  ( " Panel_libadd .Create_Panel : 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE.TAE_FAIL  => 

Text_IO. Put_Line  ( " Panel_libadd.Create_Panel : 

&  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel ; 


Connect_Panel  --  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X  Windows. Null  Window  )  is 
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begin  --  Connect_Panel 

if  Info.Panel_Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

(  Relative_Window        =>  Relative_Window, 
Panel_State  =>  Panel_State  ) ; 

else 

TAE.Tae_Wpt . Wpt_SetPanelState  ( Info . Panel_Id,  Panel_State) 
end  if; 

exception 

when  TAE . Tae_Wpt . BAD_STATE  =  > 

Text_IO. Put_Line  ( " Panel_libadd.Connect_Panel : 

&  "Invalid  panel  state."); 
raise; 

end  Connect_Panel ; 


Destroy_Panel  --  Subprogram  BODY 

procedure  Destroy_Panel  is 

begin  --  Destroy_Panel 

TAE.Tae_Wpt .Wpt_PanelErase ( Info. Panel_Id) ; 

exception 

when  TAE.Tae_Wpt.BAD_PANEL_ID  => 

Text_IO. Put_Line  ( " Panel_libadd.Destroy_Panel : 

&  " Inf o . Panel_Id  is  an  invalid  id."); 
raise;  , 

when  TAE . Tae_Wpt . ERAS E_NULL_ PANEL  => 
--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed 
--  Trap  this  exception  and  do  nothing, 
null; 

end  Destroy_Panel ; 

--  begin  EVENT  HANDLERS 

libname_Event  --  Subprogram  SPEC  &  BODY 
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procedure  libname_Event 

(  Info  :  in  TAE.Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf .STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  libname_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL    ( Inf  o  .  Parm_Ptr ,     1,    Valued)  )  ; 
else 

null; 
end    if; 
--ADDED 

libr(l.  .10)  :=Value(l)  (1.  .10)  ; 
--  End  default  generated  code 

end  libname_Event ; 


rulef ile_Event  --  Subprogram  SPEC  &  BODY 


procedure  rulef ile_Event 

(  Info  :  in  TAE.Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf .STRINGSIZE) 
Count  :  TAE.Taeint; 

begin  --  rulef ile_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info  .  Parm_Ptr ,  1,  Valued)); 
--ADDED 

rulefiled.  .15)  :=  Value  ( 1 )( 1 ..  15  )  ; 
else 
nu  1 1 ; 
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end  if; 

--  End  default  generated  code 
end  rulef ile_Event ; 


ok_Event  --  Subprogram  SPEC  &  BODY 


procedure  ok_Event 

(  Info  :  in  TAE.Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGS IZE) ; 

Count  :  TAE.Taeint; 

--ADDED 

dir   :  constant  String  :=  " $HOME/caps/src/sof tware_base/ " ; 

N,M   :  Integer:=l; 

Dummy:  Boolean; 

Libcontent  :  file_type; 

len, S : integer : =1 ; 

begin  --  ok_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info  .  Parm_Ptr ,  1,  Valued)); 
else 

null; 
end  if; 
--ADDED 

open (Libcontent , mode=>in  file, name=>" libcontent " ) ; 
get (Libcontent, lib_count , 1) ; 
if  lib_count  >=  10  then 

TAE. Tae_Wpt.Wpt_PanelMessage(info.panel_id, "ONLY  20  LIBRARY  IS 
PERMITTED") ; 
else 
global .strlen (libr,  N) ; 
global . strlen(rulefile,M) ; 

global . system_call (com& "ml  "Sdibr ( 1 . .N) &"  "&dir&rulef ile ( 1 . .M) &"  > 
"&error_f name) ; 

global .errorstring (error_f ile, error_fname, err_string) ; 
global .strlen (err_string, S) ; 
if  S>1  then 

TAE .Tae_Wpt . Wpt_PanelMessage (info .panel_id, err_string) ; 
S:=l; 
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global . system_call ( "rm  "&error_fname) ; 
for  err  in  1..80  loop 
err_string (err ) : = '  ' ; 
end  loop; 
else 

lib_count : =lib_count+l ; 

skip_line (Libcontent ) ; 

for  I  in  1 . . ( lib_count-l )  loop 

get_line (Libcontent , lib_vec ( I ) .all , len) ; 
skip_line (Libcontent ) ; 
end  loop; 
lib_vec ( lib_count ) . all:=libr; 

TAE.Tae_Wpt . Wpt_Set St ringCons train ts ( Pane l_lbs elect . Inf o . Panel_Id, " selec 
tion" , taeint ( lib_count ) , lib_vec) ; 

TAE.Tae_Wpt . Wpt_SetStringConstraints (Panel_lbdelete . Info . Panel_Id, "selec 
tion" , taeint ( lib_count ) , lib_vec) ; 

Dummy : =TAE.Tae_Wpt .Wpt_Pending; --Now  I 

reset (Libcontent , out_f ile) ; 

put (Libcontent , 1 ib_count , 1 ) ; 

new_line (Libcontent ) ; 

for  J  in  l..lib_count  loop 

put_line (Libcontent, lib_vec (J) .all ) ; 
end  loop; 
end  i  f ; 
end  if; 
close (Libcontent ) ; 

--  End  default  generated  code 
--  Begin  generated  code  for  Connection 
Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 
Panel_library.Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 
--ADDED 
TAE.Tae_Wpt .Wpt_PanelRe$et ( Info. Panel_Id) ; 

end  ok_Event ; 


cancel_Event  --  Subprogram  SPEC  &  BODY 


procedure  cancel_Event 

(  Info  :  in  TAE .Tae_Wpt . Event_Context_Ptr  )  is 

-- I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information 
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Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf .STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf o . Parm_Ptr ,  1,  Value (1)); 
end  if; 

--  End  default  generated  code 
--  Begin  generated  code  for  Connection 
Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 
Panel_library .Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 
--  End  generated  code  for  Connection 

--ADDED 

TAE.Tae_Wpt .Wpt_PanelReset ( Info . Panel_Id) ; 

end  cancel_Event ; 

--  end  EVENT  HANDLERS 


Dispatch_Item  --  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE .Tae_Wpt .Event_Context_Ptr  )  is 


begin  --  Dispatch_Item 

if  TAE .Tae_Misc . s_equal  ("libname",  User_Context_Ptr . Parm_Name)  then 

libname_Event  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Misc . s_equal  ("rulefile",  User_Context_Ptr . Parm_Name) 
then 

rulef ile_Event  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Misc . s_equal  ("ok",  User_Context_Ptr . Parm_Name)  then 

ok_Event  (User_Context_Ptr ) ; 
elsif  TAE. Tae_Misc . s_equal  ("cancel",  User_Context_Ptr . Parm_Name)  then 

cancel_Event  (User_Context_Ptr ) ; 
end  if; 

end  Dispatch_Item; 

end  Panel_libadd; 
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E.      PANEL  LBDELETE  PACKAGE 


1.       PAN  LBDELETE  S.A 


***    TAE    Plus    Code   Generator   version   V5 . 1 


***    File 

***    Generated 

***    Revised   by 


pan_lbdelete_s .a 
May    21    16:12:31    1992 
Dogan   Ozdemir 


************+**********•*****•************************+*****•****** 

* 

*     Panel_lbdelete  --  Package  SPEC 

* 

*************************++***+**********************************+* 

with  TAE; 

with  X_Windows ; 

package  Panel_lbdelete  is 

PURPOSE: 

This  package  encapsulates  the  TAE  Plus  panel:   lbdelete 
These  subprograms  enable  panel  initialization,  creation,  destruction, 
and  event  dispatching.   For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 
It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation). 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
lbdelete 


Info  :  TAE.Tae_Wpt .Event_Context_Ptr ;    --  panel  information 
Initialize_Panel  --  Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  ) ;    --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 
panel 
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--I  EXCEPTIONS: 

--I  TAE.UNINITIALIZED_PTR  is  raised  if  Collect ion_Read  not  initialized 

--I  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 

-- I     Collection  Read 


Create  Panel 


Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


Flags  sent  to  Wpt_NewPanel 


Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ) ; 


--  Panel  origin  is  offset  from 
--  this  X  Window.   Null_Window 
--  uses  the  root  window. 


I  PURPOSE: 

I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Inf o . Panel_Id. 

EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 

TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect  Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ); 


Panel  origin  is  offset  from 
this  X  Window.  Null_Window 
-  uses  the  root  window. 


-I  PURPOSE: 

-I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 

in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 

Info. Panel_Id. 
If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 

In  this  case,  Relative_Window  is  ignored. 

EXCEPTIONS: 
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TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 

not  initialized 
TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 

created 
TAE.Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 

Panel  State  is  an  invalid  state 


Destroy_Panel 


Subprogram  SPEC 


procedure  Destroy_Panel ; 


id, 


PURPOSE: 

This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 

associated  panel  object  (not  the  target  and  view) . 

EXCEPTIONS : 

TAE.Tae_Wpt . BAD_PANEL_ID  is  raised  if  Inf o . Panel_Id  is  an  invalid 


NOTES : 

■-I  Info. Panel_Id  is  set  to  TAE .NULL_PANEL_ID,  and  should  not  referenced 
--I  in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt . Event_Context_Ptr  ) ;  --  event. 

--I  PURPOSE: 

--  I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 

--I 

--I  EXCEPTIONS: 

-- I  Application-specific 


end  Panel_lbdelete; 
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2.   PAN  LBDELETE  B.A 


***  TAE  Plus  Code  Generator  version  V5 . 1 


***  File 

***  Generated 

***  Revised  by 


pan_l bde let  e_b . a 

May  21  16:12:31  1992 

Dogan  Ozdemir 
******************************************************************* 


*     Panel_lbdelete  --  Package  BODY 

* 

******************************************************************* 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Global, Text_IO; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel_library ; 
with  Panel_ldelwarn; 

package  body  Panel_lbdelete  is 

NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event-generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel : 
lbdelete 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 

An  item's  connection  information  changed 
For  the  panel  items: 

selection,        cancel,  ok 
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--ADDED 

package  integer_inout  is  new  Text_IO . integer_io ( integer ) ; 
use  integer_inout ; 


Initialize_Panel  --  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 


begin  --  Initialize_Panel 

Info  :=  new  TAE .Tae_Wpt .Event_Context ; 

Info .Collection  :  =  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Info .Collection,  " lbdelete_v" ,  Info. View); 

TAE.Tae_Co.Co_Find  ( Info .Collection,  " lbdelete_t " ,  Info .Target ) ; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO. Put_Line  ( " Panel_lbdelete . Initialize_Panel : 

&  "Collection_Read  not  initialized."); 
raise; 

when  TAE . Tae_Co . NO_SUCH_MEMBER  =  > 

Text_IO. Put_Line  ( " Panel_lbdelete . Initialize_Panel : 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel ; 


Create_Panel  --  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 
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begin  --  Create_Panel 

if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
TAE . Tae_Wpt . Wpt_NewPane 1 

(  Dummy  =>  "  "  , 

Data_Vm  =  >  Info. Target, 

View_Vm  =>  Info. View, 

Relative_Window        =  >  Relative_Window, 
User_Context  =>  Info, 

Flags  =>  Panel_State, 

Panel_Id  =>  Info . Panel_Id  )  ; 

else 

Text_IO. Put_Line  ("Panel  (lbdelete)  is  already  displayed 
end  if; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO. Put_Line  ( " Panel_lbdelete .Create_Panel : 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE.TAE_FAIL  => 

Text_IO.Put_Line  ( "Panel_lbdelete .Create_Panel : 

&  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel ; 


Connect_Panel  --  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State  • 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X  Windows. Null  Window  )  is 


--ADDED 
Libcontent 
len 
Dummy 


f ile_type; 
integer: =1 ; 
Boolean; 


begin  --  Connect_Panel 
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if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

(  Relative_Window        =>  Relative_Window, 
Panel_State  =  >  Panel_State  ) ; 

else 

TAE.Tae_Wpt .Wpt_SetPanelState  ( Inf o. Panel_Id,  Panel_State) ; 
--ADDED 

open (Libcontent , mode=>in_f ile, name=>" libcontent " ) ; 
get (Libcontent , lib_count , 1 ) ; 
skip_line (Libcontent ) ; 
for  I  in  l..lib_count  loop 

get_line (Libcontent , lib_vec ( I ) .all , len) ; 
skip_line (Libcontent ) ; 
end  loop; 

TAE.Tae_Wpt . Wpt_SetStringConstraints (Info. Panel_Id,  "selection" , taeint ( li 
b_count ) , lib_vec) ; 

Dummy :=TAE.Tae_Wpt .Wpt_Pending; 
end  if; 

exception 

when  TAE . Tae_Wpt . BAD_S TATE  => 

Text_IO. Put_Line  ( " Panel_lbdelete .Connect_Panel : 

&  "Invalid  panel  state."); 
raise; 

end  Connect_Panel ; 


Destroy_Panel  --  Subprogram  BODY 

procedure  Destroy_Panel  is 

begin  --  Destroy_Panel 

TAE .Tae_Wpt .Wpt_PanelErase ( Info . Panel_Id) ; 

exception 

when  TAE.Tae_Wpt .BAD_PANEL_ID  => 

Text_IO.Put_Line  ( "Panel_lbdelete .Destroy_Panel : 

&  " Inf o . Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE . Tae_Wpt . ERASE_NULL_PANEL  => 
--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
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--  Trap  this  exception  and  do  nothing, 
null; 

end  Destroy_Panel ; 

--  begin  EVENT  HANDLERS 

select ion_Event  --  Subprogram  SPEC  &  BODY 


procedure  selection_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER.   Insert  application  specific  information. 

--I 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE! 
Count  :  TAE.Taeint; 

begin  --  selection_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf o . Parm_Ptr ,  1,  Valued)); 
else 

null; 
end  if; 
--ADDED 
lib_to_delete(l.  dO)  :=Va,lue(l)  (1.  .10)  ; 


--  End  default  generated  code 
end  selection_Event ; 


cancel_Event  --  Subprogram  SPEC  &  BODY 


procedure  cancel_Event 

(  Info  :  in  TAE .Tae_Wpt .Event_Context_Ptr  )  is 
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--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf o . Parm_Ptr ,  1,  Value (1)); 
else 

null  ; 
end  if; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 
Panel_library .Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 
--ADDED 
TAE.Tae_Wpt .Wpt_PanelReset ( Info . Panel_Id) ; 

end  cancel_Event ; 


ok_Event  --  Subprogram  SPEC  &  BODY 


procedure  ok_Event        , 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf .STRINGSIZE) 
Count  :  TAE.Taeint; 

begin  --  ok_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 
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TAE.Tae_Vm.Vm_Extract_SVAL    ( Inf  o  .  Parm_Ptr ,     1,    Valued 
else 

null; 
end    i  f ; 


--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE . Tae_Wpt . WPT_INVISIBLE) ; 
Panel_ldelwarn.Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 
--ADDED 
TAE.Tae_Wpt . Wpt_PanelReset ( Info. Panel_Id) ; 

end  ok_Event ; 

--  end  EVENT  HANDLERS 


Dispatch_Itein  --  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE .Tae_Wpt .Event_Context_Ptr  )  is 


begin  --  Dispatch_Item 

if  TAE.Tae_Misc .s_equal  ("selection",  User_Context_Ptr . Parm_Name)  then 

selection_Event  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Misc .s_equal  ("cancel",  User_Context_Ptr . Parm_Name)  then 
cancel_Event  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Misc.s_equal  ("ok",  User_Context_Ptr . Parm_Name)  then 

ok_Event  (User_Context_Ptr ) ; 
end  i  f ; 

end  Dispatch_Item; 

end  Panel_lbdelete; 
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PANEL  LDELWARN  PACKAGE 


1.       PAN  LDELWARN  S.A 


-  ***  TAE  Plus  Code  Generator  version  V5 . 1 


■**  Fiie 
**  Generated 
'**  Revised  by 


pan_ldelwarn_s .a 
May  21  16:12:31  1992 
Dogan  Ozdemir 


•  ****************************■«•****•*■***••*•**•*■*•****•**•***•*■«■**•*•■«■*•■*• 


Panel  ldelwarn 


Package  SPEC 


•  ***T**  +  **-***' 


■****  +  *■*■**■*■**•*' 


■-*■**■■*■*■ 


*■****-*■-*••*•*-*•-*■*•*■-*•-*•* 


with  TAE; 

with  X_Windows ; 

package  Panel_ldelwarn  is 


PURPOSE: 

This  package  encapsulates  the  TAE  Plus  panel:   ldelwarn 

These  subprograms  enable  panel  initialization,  creation,  destruction, 

and  event  dispatching.   For  more  advanced  manipulation  of  the  panel 

using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided, 

It  includes  the  Target  and  View  (available  after  initialization) 

and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
-- I  For  panel : 
-- I    ldelwarn 


Info  :  TAE.Tae_Wpt . Event_Context_Ptr ; 


panel  information 


Initialize  Panel 


--  Subprogram  SPEC 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae  Co .Collection  Ptr 


--  TAE  Collection  read  from 
--  resource  file 


--I  PURPOSE: 

-- I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 

panel 
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--I  EXCEPTIONS: 

--I  TAE.UNINITIALIZED_PTR  is  raised  if  Collect ion_Read  not  initialized 

--I  TAE.Tae_Co.NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 

--I     Collection  Read 


Create  Panel 


-  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


■■-  Flags  sent  to  Wpt_NewPanel 


Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows . Null_Window  ) ; 


--  Panel  origin  is  offset  from 
--  this  X  Window.   Null_Window 
--  uses  the  root  window. 


PURPOSE: 
This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Info. Panel_Id. 

EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 

TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect  Panel 


■-  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


Relative_Window 

:  in  X_Windows .Window 

:=  X  Windows. Null  Window 


--  Panel  origin  is  offset  from 
--  this  X  Window.   Null_Window 
--  uses  the  root  window. 


PURPOSE: 
If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 

in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 

Info. Panel_Id. 
If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 

In  this  case,  Relative_Window  is  ignored. 

EXCEPTIONS: 
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TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 

not  initialized 
TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 

created 
TAE.Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 

Panel  State  is  an  invalid  state 


Destroy_Panel 


Subprogram  SPEC 


procedure  Destroy_Panel ; 


PURPOSE: 

This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 

associated  panel  object  (not  the  target  and  view) . 

EXCEPTIONS : 

TAE.Tae_Wpt . BAD_PANEL_ID  is  raised  if  Inf o . Panel_Id  is  an  invalid 

id. 

NOTES : 

Info.Panel_Id  is  set  to  TAE .NULL_PANEL_ID,  and  should  not  referenced 
in  any  Wpt  call  until  it  is  created  again. 


D i spa tch_I tern 


--  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt . Event_Context_Ptr  ) ;  --  event. 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 


--I 

--I  EXCEPTIONS: 

--I  Application-specific 

end  Panel_ldelwarn; 
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2.       PAN  LDELWARNB.A 

***  TAE  Plus  Code  Generator  version  V5 . 1 
***  File        :  pan_ldelwarn_b.a 

May  21  16:12:31  1992 

Dogan  Ozdemir 


***  Generated 
***  Revised  by 


******************************************************************* 

* 

*     Panel_ldelwarn  --  Package  BODY 

* 

******************************************************************* 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Global, Text_IO; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel_library ; 
with  Panel_lbselect ; 
with  Panel_lbdelete ; 

package  body  Panel_ldelwarn  is 

NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event-generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
ldelwarn 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 

An  item's  connection  information  changed 
For  the  panel  items: 
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-- I    ok,  cancel 

--ADDED 

package  integer_inout  is  new  Text_IO . integer_io ( integer , 

use  integer_inout ; 


Initialize_Panel  --  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae  Co . Collect  ion  Ptr  )  is 


begin  --  Initialize_Panel 

Info  :=  new  TAE .Tae_Wpt .Event_Context ; 

Info .Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Info .Collection,  " ldelwarn_v" ,  Info. View); 

TAE.Tae_Co.Co_Find  ( Info .Collection,  " ldelwarn_t " ,  Info .Target ) ; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_ldelwarn . Initialize_Panel : 

&  "Collection_Read  not  initialized."); 
raise; 

when  TAE . Tae_Co . NO_SUCH_MEMBER  => 

Text_IO . Put_Line  ( " Panel_ldelwarn . Initialize_Panel : 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel; 


Create_Panel  --  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X  Windows .Window 
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:=  X_Windows .Null_Window  )  is 

begin  --  Create_Panel 

if  Info.Panel_Id  =  Tae .Null_Panel_Id  then 
TAE.Tae_Wpt . Wpt_NewPanel 

(  Dummy  =>  "  "  , 

Data_Vm  =>  Info. Target, 

View_Vm  =>  Info. View, 

Relative_Window  =>  Relative_Window, 

User_Context  =>  Info, 

Flags  =>  Panel_State, 

Panel_Id  =  >  Inf o . Panel_Id  ) ; 
else 

Text_IO . Put_Line  ("Panel  (ldelwarn)  is  already  displayed."); 
end  if; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO. Put_Line  ( " Panel_ldelwarn .Create_Panel :   " 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE.TAE_FAIL  => 

Text_IO.Put_Line  ( " Panel_ldelwarn .Create_Panel : 

&  "Panel  could  not  be  created."); 
raise ; 

end  Create_Panel ; 


Connect_Panel  --  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 


begin  --  Connect_Panel 

if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
Create  Panel 
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(  Relative_Window        =>  Relative_Window, 
Panel_State  ->    Panel_State  ) ; 

else 

TAE.Tae_Wpt . Wpt_SetPanelState  ( Inf o . Panel_Id,  Panel_State! 
end  if; 

exception 

when  TAE.Tae_Wpt .BAD_STATE  => 

Text_IO. Put_Line  ( " Panel_ldelwarn .Connect_Panel : 

&  "Invalid  panel  state."); 
raise; 

end  Connect_Panel ; 


Destroy_Panel  --  Subprogram  BODY 

procedure  Destroy_Panel  is 

begin  --  Destroy_Panel 

TAE.Tae_Wpt . Wpt_PanelErase ( Info. Panel_Id) ; 

exception 

when  TAE.Tae_Wpt.BAD_PANEL_ID  => 

Text_IO. Put_Line  ( " Panel_ldelwarn .Destroy_Panel : 

&  " Info . Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE.Tae_Wpt.ERASE_NULL_PANEL  => 
--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  , and  do  nothing, 
nu  1 1  ; 

end  Destroy_Panel ; 


begin  EVENT  HANDLERS 


ok_Event  --  Subprogram  SPEC  &  BODY 
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procedure  ok_Event 

(  Info  :  in  TAE .Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

--ADDED 

N  :  Integer :=1; 

Dummy : Boolean ; 

Libcontent  :  file_type; 

len : integer : =1 ; 

begin  --  ok_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info . Parm_Ptr ,  1,  Value (1)); 
else 

null; 
end  i  f ; 

--ADDED 
open (Libcontent , mode=>in_f ile, name=>" libcontent" ) ; 
get (Libcontent , lib_count ,  1 )  ; 
global . strlen ( lib_to_delete, N) ; 

global . system_call (com&"dl  "Sdib_to_delete ( 1 . . N) ) ; 
skip_line (Libcontent ) ; 
for  I  in  l..lib_count  loop 

get_line (Libcontent , lib_vec (I) .all, len) ; 
skip_line (Libcontent ) ; 
if  lib_to_delete=lib_vec ( I) .all  then 
if  I=lib_count  then 
lib_vec(I) .all:=" 
end  if; 

lib_count : =lib_count-l ; 

for  J  in  I . . ( lib_count )  loop 

get_line (Libcontent, lib_vec ( J+l) .all, len) ; 
skip_line (Libcontent ) ; 
lib_vec(J) .all:=lib_vec(J+l) .all; 
lib_vec(J+l) .all:=" 
end  loop; 
exit  ; 
end  i  f ; 
end  loop; 

TAE.Tae_Wpt . Wpt_SetStringConstraints (Panel_lbselect . Info. Panel_Id, "selec 
tion" , taeint ( lib_count ) , lib_vec) ; 


180 


TAE .Tae_Wpt . Wpt_SetStringConstraints ( Panel_lbdelete . Info . Panel_Id, " selec 
tion" , taeint ( lib_count ) , lib_vec ) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 

reset (Libcontent , out_file) ; 
put (Libcontent , lib_count ,  1)  ; 
new_line (Libcontent )  ; 
for  K  in  1 . . ( lib_count+l )  loop 

put_line (Libcontent , lib_vec (K) .all ) ; 
end  loop; 
close (Libcontent ) ; 


--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE.Tae_Wpt . WPT_INVISIBLE) ; 
Panel_library .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 


--  End  generated  code  for  Connection 
end  ok_Event ; 


cancel_Event  --  Subprogram  SPEC  &  BODY 


procedure  cancel_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE.Tae_Taeconf . STRINGSIZE] 
Count  :  TAE.Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf o . Parm_Ptr ,  1,  Value(l)); 
else 

null; 
end  if; 

--  End  default  generated  code 
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--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE .Tae_Wpt . WPT_INVISIBLE) ; 
Panel_library .Connect_Panel  (TAE.Tae_Wpt . WPT_VISIBLE: 

--  End  generated  code  for  Connection 

end  cancel_Event ; 

--  end  EVENT  HANDLERS 


Dispatch_Item  --  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE .Tae_Wpt .Event_Context_Ptr  )  is 


begin  --  Dispatch_Item 

if  TAE.Tae_Misc .s_equal  ("ok",  User_Context_Ptr . Parm_Name)  then 

ok_Event  (User_Context_Ptr) ; 
elsif  TAE .Tae_Misc . s_equal  ("cancel",  User_Context_Ptr . Parm_Name)  then 

cancel_Event  (User_Context_Ptr ) ; 
end  if; 

end  Dispatch_Item; 

end  Panel_ldelwarn; 
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G.     PANEL  LBSELECT  PACKAGE 


1.       PAN  LBSELECT  S.A 


***    TAE    Plus    Code   Generator    version   V5 . 1 


***    File 

***    Generated 

***    Revised   by 


pan_lbselect_s .a 
May    21    16:12:31    1992 
Dogan   Ozdemir 


it***************************************************************** 


Panel  lbselect 


Package  SPEC 


it****************************************************************** 


with  TAE; 

with  X_Windows; 

package  Panel_lbselect  is 


PURPOSE: 

This  package  encapsulates  the  TAE  Plus  panel:   lbselect 

These  subprograms  enable  panel  initialization,  creation,  destruction, 

and  event  dispatching.   For  more  advanced  manipulation  of  the  panel 

using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided 

It  includes  the  Target  and  View  (available  after  initialization) 

and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
lbselect 


Info  :  TAE .Tae_Wpt . Event_Context_Ptr ;    --  panel  information 


Initialize  Panel 


--  Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  ) ;    --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 
panel 
--I 
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--I  EXCEPTIONS: 

--I  TAE.UNINITIALIZED_PTR  is  raised  if  Collect ion_Read  not  initialized 

--I  TAE.Tae_Co.NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 

--I     Collection  Read 


Create  Panel 


Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


Flags  sent  to  Wpt_NewPanel 


Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ); 


Panel  origin  is  offset  from 
this  X  Window.   Null_Window 
■-  uses  the  root  window. 


--I  PURPOSE: 

--I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Inf o . Panel_Id . 

EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 

TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect  Panel 


-  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


Re lat  i ve_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ); 


--  Panel  origin  is  offset  from 
--  this  X  Window.   Null_Window 
--  uses  the  root  window. 


PURPOSE: 
If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 

in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 

Info.Panel_Id. 
If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 

In  this  case,  Relative_Window  is  ignored. 

EXCEPTIONS: 
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TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 

not  initialized 
TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 

created 
TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 

Panel  State  is  an  invalid  state 


Destroy_Panel 


Subprogram  SPEC 


procedure  Destroy_Panel ; 


id. 


PURPOSE: 

This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 

associated  panel  object  (not  the  target  and  view) . 

EXCEPTIONS : 

TAE.Tae_Wpt . BAD_PANEL_ID  is  raised  if  Inf o . Panel_Id  is  an  invalid 


NOTES : 

--I  Info. Panel_Id  is  set  to  TAE .NULL_PANEL_ID,  and  should  not  referenced 
-- I  in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt .Event_Context_Ptr  ) ;  --  event. 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 


--I  EXCEPTIONS: 

--I  Application-specific 

end  Panel_lbselect ; 
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2.       PANLBSELECTB.A 

***    TAE    Plus    Code   Generator   version   V5 . 1 
***    File  :    pan_lbselect_b.a 

May    21    16:12:31    1992 

Dogan  Ozdemir 
******************************************************************* 


***   Generated 
***  Revised  by 


*     Panel_lbselect  --  Package  BODY 
* 

******************************************************************* 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Global, Text_IO; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel_library ; 
with  Panel_mainmenu; 

package  body  Panel_lbselect  is 

NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event-generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
lbselect 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 

An  item's  connection  information  changed 
For  the  panel  items: 

selection,        cancel,  ok 
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--ADDED 

libr  :String  (1..10):=  (others=>'  '); 

package  integer_inout  is  new  Text_IO . integer_io ( integer ) ; 

use  integer_inout ; 


Initialize_Panel  --  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 


begin  --  Initialize_Panel 

Info  :-    new  TAE . Tae_Wpt . Event_Context ; 
Info . Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Info .Collection,  " lbselect_v" ,  Info. View); 
TAE.Tae_Co.Co_Find  ( Info .Collection,  " lbselect_t " ,  Info. Target) 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO. Put_Line  ( " Panel_lbselect . Initialize_Panel : 

&  "Collection_Read  not  initialized."); 
raise; 

when  TAE . Tae_Co . NO_SUCH_MEMBER  => 

Text_IO. Put_Line  ( " Panel_lbselect . Initialize_Panel : 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel ; 


Create_Panel  --  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X  Windows .Window 
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=  X_Windows .Null  Window  )  is 


begin  --  Create_Panel 

if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
TAE . Tae_Wpt . Wpt_NewPane 1 

(  Dummy  =>  " " , 

Data_Vm  =>  Info. Target, 

View_Vm  =>  Info. View, 

Relative_Window  =>  Relative_Window, 

User_Context  =>  Info, 

Flags  =>  Panel_State, 

Panel_Id  =  >  Info . Panel_Id  ) ; 
else 

Text_IO . Put_Line  ("Panel  (lbselect)  is  already  displayed 
end  i  f ; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO.Put_Line  ( " Panel_lbselect .Create_Panel : 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE.TAE_FAIL  => 

Text_IO.Put_Line  ( " Panel_lbselect .Create_Panel : 

&  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel ; 


Connect_Panel  --  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 

--ADDED 

Libcontent  :  file_type; 
len         :  integer :=1; 
Dummy       :  Boolean; 
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begin  --  Connect_Panel 

if  Info. Panel_Id  -   Tae .Null_Panel_Id  then 
Create_Panel 

(  Relative_Window        =>  Relative_Window, 
Panel_State  ->    Panel_State  ) ; 

else 
TAE.Tae_Wpt .Wpt_SetPanelState  ( Inf o . Panel_Id,  Panel_State ) ; 

--ADDED 
open  (Libcontent  ,mode  =  >in_f  ile,  name=>"  libcontent "  )  ; 
get (Libcontent , lib_count ,  1 )  ; 
skip_line (Libcontent )  ; 
for  I  in  l..lib_count  loop 
get_line (Libcontent , lib_vec ( I ) .all , len) ; 
skip_line (Libcontent ) ; 
end  loop; 

TAE.Tae_Wpt .Wpt_SetStringConstraints ( Info . Panel_Id, "selection" , taeint ( li 
b_count ) , lib_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
end  if; 

exception 

when  TAE.Tae_Wpt .BAD_STATE  => 

Text_IO . Put_Line  ( " Panel_lbselect .Connect_Panel : 

&  "Invalid  panel  state."); 
raise; 

end  Connect_Panel ; 


Destroy_Panel  --  Subprogram  BODY 

procedure  Destroy_Panel  is 

begin  --  Destroy_Panel 

TAE.Tae_Wpt . Wpt_PanelErase ( Inf o . Panel_Id) ; 

exception 

when  TAE.Tae_Wpt.BAD_PANEL_ID  => 

Text_IO. Put_Line  ( " Panel_lbselect .Destroy_Panel : 

&  " Info . Panel_Id  is  an  invalid  id."); 
raise; 
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when  TAE . Tae_Wpt . ERASE_NULL_PANEL  = > 
--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
null; 

end  Destroy_Panel ; 

--  begin  EVENT  HANDLERS 


selection_Event  --  Subprogram  SPEC  &  BODY 


procedure  selection_Event 

(  Info  :  in  TAE .Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  selection_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info . Parm_Ptr ,  1,  Valued) ); 
else 

null; 
end  if;  , 

--ADDED 
libr(l. .10) :=Value(l) (1. .10) ; 

--  End  default  generated  code 

end  select ion_Event ; 


cancel_Event  --  Subprogram  SPEC  &  BODY 


procedure  cancel_Event 
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(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . . TAE . Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info  .  Parm_Ptr ,  1,  Value (1)); 
else 

null; 
end  if; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 
Panel_library .Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 
--ADDED 
TAE.Tae_Wpt . Wpt_PanelReset ( Info . Panel_Id) ; 

end  cancel_Event ; 


ok_Event  --  Subprogram  SPEC  &  BODY 


procedure  ok_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  (1 . .TAE .Tae_Taeconf .STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  ok_Event 

--  Begin  default  generated  code 
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TAE.Tae_Vm.Vm_Extract_Count  { Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf o . Parm_Ptr ,  1,  Value (1) 
else 

null; 
end  if; 
--ADDED 
library  :-    libr; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 
Panel_mainmenu.Connect_Panel  (TAE .Tae_Wpt . WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 
--ADDED 

TAE.Tae_Wpt . Wpt_PanelReset ( Info. Panel_Id) ; 
end  ok_Event ; 


■-  end  EVENT  HANDLERS 


Dispatch_Item  --  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE .Tae_Wpt . Event_Context_Ptr  )  is 


begin  --  Dispatch_Item 

if  TAE.Tae_Misc . s_equal  ("selection",  User_Context_Ptr . Parm_Name)  then 

select ion_Event  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Misc . s_equal  ("cancel",  User_Context_Ptr . Parm_Name)  then 
cancel_Event  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Misc.s_equal  ("ok",  User_Context_Ptr . Parm_Name)  then 

ok_Event  (User_Context_Ptr ) ; 
end  if; 

end  Dispatch_Item; 

end  Panel_lbselect ; 
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H.     PANEL  MAINMENU  PACKAGE 


1.       PAN_MAINMENU_S.A 

--  ***  TAE  Plus  Code  Generator  version  V5 . 1 


***  File 

***  Generated 

***  Revised  by 


pan_mainmenu_s .a 
May  21  16:12:31  1992 
Dogan  Ozdemir 


***••*•***•**•****•**  +  **•******•***•**  +  ***•*  +  *•*****•*  +  •*•  +  ■***■*■*■*■•* 

* 

*     Panel_mainmenu  --  Package  SPEC 

* 

*****•**•••**••***•*••***•****•****•**•*•••*•*****••*•***•*••***••*• 

with  TAE; 

with  X_Windows ; 

package  Panel_mainmenu  is 

--I  PURPOSE: 

-- I  This  package  encapsulates  the  TAE  Plus  panel:   mainmenu 

--I  These  subprograms  enable  panel  initialization,  creation,  destruction, 

-- I  and  event  dispatching.   For  more  advanced  manipulation  of  the  panel 

--I  using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided 

-- I  It  includes  the  Target  and  View  (available  after  initialization) 

--I  and  the  Panel_Id  (available  after  creation). 

--I 

- -  I  REGENERATED : 

--I  The  following  Workbench  operations  will  cause  regeneration  of  this 

file: 

--I      The  panel's  name  is  changed  (not  title) 

-- I  For  panel : 

-- I    mainmenu 

Info  :  TAE.Tae_Wpt .Event_Context_Ptr ;    --  panel  information 


Initialize_Panel  --  Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  ) ;    --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 
panel 
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-I  EXCEPTIONS: 

■-I  TAE.UNINITIALIZED_PTR  is  raised  if  Collect ion_Read  not  initialized 

-I  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
■-  I     Collection  Read 


Create  Panel 


Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

:=  TAE.Tae_Wpt.WPT_PREFERRED; 


Flags  sent  to  Wpt_NewPanel . 


Relative_Window 

:  in  X_Windows .Window 

: =  X_Windows .Null_Window  ); 


Panel  origin  is  offset  from 
this  X  Window.  Null_Window 
-  uses  the  root  window. 


PURPOSE: 
This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Inf o . Panel_Id. 

EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 

TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect  Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt .Wpt_F lags 

:=  TAE.Tae_Wpt.WPT_PREFERRED; 


Relative_Window 

:  in  X_Windows .Window 

:=  X  Windows. Null  Window 


--  Panel  origin  is  offset  from 
--  this  X  Window.   Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 
-- I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 

in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 

Info.Panel_Id. 
If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 

In  this  case,  Relative_Window  is  ignored. 

EXCEPTIONS: 
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TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 

not  initialized 
TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 

created 
TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 

Panel  State  is  an  invalid  state 


Destroy_Panel 


Subprogram  SPEC 


procedure  Destroy_Panel ; 


id. 


PURPOSE: 

This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 

associated  panel  object  (not  the  target  and  view) . 

EXCEPTIONS : 

TAE.Tae_Wpt . BAD_PANEL_ID  is  raised  if  Info . Panel_Id  is  an  invalid 


NOTES : 

Info.Panel_Id  is  set  to  TAE.NULL_PANEL_ID,  and  should  not  referenced 
in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


■-  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

.:  in  TAE.Tae_Wpt  .Event_Context_Ptr  )  ;  --  event. 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 


--I  EXCEPTIONS: 

--I  Application-specific 

end  Panel_mainmenu; 
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2.   PAN  MAINMENU  B.A 


***  TAE  Plus  Code  Generator  version  V5 . 1 


***  File 

***  Generated 

***  Revised  by 


pan_ma  inmenu_b . a 
May  21  16:12:31  1992 
Dogan  Ozdemir 
******************************************************************* 


*     Panel_mainmenu  --  Package  BODY 
* 

******************************************************************* 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Text_IO, Global; 

--  One  "with"  statement  for  each  connected  panel. 

with  Panel_lbselect ; 

with  Panel_compsel ; 

with  Panel_addf ile; 

with  Panel_keyword; 

with  Panel_query; 

package  body  Panel_mainmenu  is 

NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event-generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel : 
mainmenu 

The  following  WorkBench  operations  will  also  cause  regeneration: 
An  item  is  deleted 

A  new  item  is  added  to  this  panel 
An  item's  name  is  changed  (not  title) 
An  item's  data  type  is  changed 
An  item's  generates  events  flag  is  changed 
An  item's  valids  changed  (if  item  is  type  string  and  connected) 
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I  An  item's  connection  information  changed 

I  For  the  panel  items: 

I  cancel,           help,             browse, 

I  query 


component 


--ADDED 
operator_f ile 
type_f ile 
operator_list 
type_list 
Dummy 


f ile_type; 
f ile_type; 
String (1 . . 13 
Stringd.  .9) 
Boolean ; 


: ="operator_list 
=" type_list " ; 


Initialize  Panel 


--  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae  Co . Collect  ion  Ptr 


is 


begin  --  Initialize_Panel 

Info  :=  new  TAE .Tae_Wpt .Event_Context ; 

Info .Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Info .Collection,  "mainmenu_v" ,  Info. View); 

TAE.Tae_Co.Co_Find  ( Info .Collection,  "mainmenu_t " ,  Info. Target 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_mainmenu . Initialize_Panel :   " 

&  "Collection_Read  not  initialized."); 
raise; 

when  TAE . Tae_Co . NO_SUCH_MEMBER  => 

Text_IO . Put_Line  ( " Panel_mainmenu . Initialize_Panel :   " 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel ; 


Create  Panel 


--  Subprogram  BODY 


procedure  Create_Panel 
(  Panel  State 
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:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 

begin  --  Create_Panel 

if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
TAE . Tae_Wpt . Wpt_NewPane 1 

(  Dummy  =>  " " , 

Data_Vm  =>  Info. Target, 

View_Vm  =>  Info. View, 

Relative_Window        =>  Relative_Window, 
User_Context  =>  Info, 

Flags  =>  Panel_State, 

Panel_Id  =>  Inf o . Panel_Id  ) ; 

else 

Text_IO . Put_Line  ("Panel  (mainmenu)  is  already  displayed, 
end  if; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_mainmenu .Create_Panel :   " 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE.TAE_FAIL  => 

Text_IO . Put_Line  ( " Panel_mainmenu .Create_Panel : 

&  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel ; 


Connect_Panel  --  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 
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begin  --  Connect_Panel 

if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

(  Relative_Window        =>  Relative_Window, 
Panel_State  =>  Panel_State  ) ; 

else 

TAE.Tae_Wpt . Wpt_SetPanelState  ( Inf o . Panel_Id,  Panel_State) 
end  i  f ; 

exception 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO . Put_Line  ( " Panel_mainmenu . Connect_Panel :   " 

&  "Invalid  panel  state."); 
raise; 

end  Connect_Panel ; 


Destroy_Panel  --  Subprogram  BODY 


procedure  Destroy_Panel  is 

begin  --  Destroy_Panel 

TAE.Tae_Wpt .Wpt_PanelErase ( Inf o . Panel_Id)  ; 

exception 

when  TAE.Tae_Wpt .BAD_PANEL_ID  => 

Text_IO . Put_Line  ( " Panel_mainmenu .Destroy_Panel :   " 

&  "  Info.  Panel_Id  is  a,n  invalid  id."); 
raise; 

when  TAE . Tae_Wpt . ERASE_NULL_PANEL  => 
--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing. 
null; 

end  Destroy_Panel ; 

--  begin  EVENT  HANDLERS 
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cancel_Event  --  Subprogram  SPEC  &  BODY 


procedure  cancel_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf o . Parm_Ptr ,  1,  Valued) ); 
end  if; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 
Panel_lbselect .Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 
--  End  generated  code  for  Connection 

end  cancel_Event ; 


browse_Event      ,  --  Subprogram  SPEC  &  BODY 


procedure  browse_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 
N  : integer: =1; 

begin  --  browse_Event 
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--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf  o  .  Parm_Ptr ,  1,  Valued)); 
end  1 f ; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

strlen ( library , N) ; 

if  TAE.Tae_Misc .s_equal  (Value (1),  "Types")  then 

system_call  (com&"tl  "Sdibrary  ( 1 .  .N)  &"  "&  "  type_list "  )  ; 
list_components ( type_f ile, type_list , f ile_vec, num_of_comp) ; 

TAE . Tae_Wpt . Wpt_SetStringConstraints ( Panel_compsel . Info . Panel_Id, " compse 
1 " , taeint (num_of_comp) , f ile_vec) ; 

Dummy: =TAE.Tae_Wpt .Wpt_Pending; 
system_call ( "rm  type_list " ) ; 
Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 
Panel_compsel .Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 

elsif  TAE.Tae_Misc .  s_equal  (Valued),  "Operators")  then 

system_call (com&"ol  "& library (1 . . N) &"  "&"operator_list " ) ; 

list_components (operator_f ile, operator_list , f ile_vec, num_of_comp) ; 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Panel_compsel dnfo . Panel_Id, "compse 
1 " , taeint (num_of_comp) , f ile_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system_call ( "rm  operator_list " ) ; 
Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 
Panel_compsel .Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 
end  if; 
--  End  generated  code  for  Connection 

end  browse_Event ;  , 


component_Event  --  Subprogram  SPEC  &  BODY 


procedure  component_Event 

(  Info  :  in  TAE .Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE. Tae_Taeconf . STRINGS I ZE) ; 
Count  :  TAE.Taeint; 
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I,C  : Integer :=1; 

D  : Integer : =0 ; 

ls_file  :file_type; 

f ile_name: String (1 . .7)  :=  "ls_file"; 

current  :String  (1..80):=  (others=>'  '); 

number  : Integer : =1 ; 

Dummy  : Boolean; 

begin  --  component_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info . Parm_Ptr ,  1,  Valued)  ); 
end  if; 

--  End  default  generated  code 
--  Begin  generated  code  for  Connection 
if  TAE.Tae_Misc . s_equal  (Value (1),  "Add")  then  null; 
system_call ( "pwd  >  directory_f ile" ) ; 

read_directory (directory_f ile, directory_f ile_name, Directory) ; 
strlen (Directory , D) ; 
loop 

if  Directory (I)  =  '/'  then 

current_directory (cur_dir_index) ( 1 . . C+l ) : =current ( 1 . . C- 
1 )  &  "  /  "  ; 

cur_dir_index : =cur_dir_index+ 1 ; 
C:=l; 
else 

current (C) : =Directory (I ) ; 
C:=C+1; 
end  i  f ; 

I:=I+1; 

if  I=D+1  then  exit; 
end  if; 
end  loop; 
current_directory (cur_dir_index) (1 . .C+l) : =current (1 . .C-l) &"/ 
if  D>27  then 

directory _array  :=  Directory ( (D-26) . .D) ; 
else 

directory _array  :=  Directory (1 .. 27 ) ; 
end  if; 
system_call ( "Is  -F  "&Directory ( 1 . .D) &"  >  "&" ls_f ile" ) ; 
list_directory ( ls_f ile, f ile_name, f ile_vec, number) ; 


TAE.Tae_Wpt .Wpt_SetStringConstraints ( Panel_addf ile . Info. Panel_Id, "selpsd 
1" , taeint (number) , f ile_vec) ; 

TAE.Tae_Wpt . Wpt_SetStringConstraints ( Panel_addf ile . Info. Panel_Id, "selspe 
c" , taeint (number) , f ile_vec) ; 
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TAE.Tae_Wpt . Wpt_SetStringConstraints ( Panel_addf ile . Info . Panel_Id, "selbod 
y " , taeint (number) , f ile_vec) ; 

TAE.Tae_Vm.Vm_SetString ( Pane l_addf ile . Info. View, "psdldi rectory" , 1, direct 
ory_array , TAE . Tae_Vm . P_UPDATE ) ; 

TAE . Tae_Wpt .Wpt_ViewUpdate ( Panel_addf ile . Info . Panel_Id, "psdldirectory " , P 
anel_addf ile . Info .View, "psdldirectory") ; 

TAE . Tae_Vm. Vm_SetString ( Pane l_addf ile . Info .View, " speed i rectory" , 1 , direct 
ory_array , TAE . Tae_Vm . P_UPDATE ) ; 

TAE .Tae_Wpt .Wpt_ViewUpdate ( Panel_addf ile . Info . Panel_Id, " specdirectory " , P 
anel_addf ile . Info .View, " specdirectory" ) ; 

TAE.Tae_Vm.Vm_SetString ( Pane l_addf ile . Info. View, "bodydi rectory" , 1, direct 
ory_array , TAE . Tae_Vm . P_UPDATE) ; 

TAE.Tae_Wpt . Wpt_ViewUpdate ( Pane l_addf ile .Info. Panel_Id, "bodydi rectory" , P 
anel_addf ile . Info .View, "bodydirectory " ) ; 
Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 

system_call ( "rm  ls_file"); 
system_call ( "rm  directory_f ile" ) ; 

Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 
Panel_addfile.Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 
Component_add : =TRUE ; 

elsif  TAE.Tae_Misc .s_equal  (Value (1),  "Update")  then  null; 
Connect_Panel  (TAE .Tae_Wpt . WPT_INVISIBLE) ; 
Panel_addfile.Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 
Component_update : =TRUE ; 

end  i  f ; 

--  End  generated  code  for  Connection 

end  component_Event ; 


query _Event  --  Subprogram  SPEC  &  BODY 


procedure  query_Event 

(  Info  :  in  TAE.Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information 


203 


Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

Dummy : Boolean ; 

D     : Integer : =0 ; 

I,C   : Integer :=1; 

number  : integer : =1 ; 

current :String  (1..80):=  (others=>'  '); 

ls_f ile : f ile_type ; 

file_name:  String  (1..  7)  -.-    "ls_file"; 

begin  --  query_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf o . Parm_Ptr ,  1,  Value (1)); 
end  if; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

if  TAE.Tae_Misc.s_equal  (Value (1),  "Keyword")  then 
Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 
Panel_keyword.Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

elsif  TAE.Tae_Misc .s_equal  (Value (1),  "PSDL")  then 
strlen (path,  D)  ; 
Directory  (1.  .D)  :=  path(L.D); 
loop 

if  Directory (I)  =  '/'  then 

current_directory (cur_dir_index)  ( 1 .  . C  +  l)  : ^current ( 1 . .  C- 


1 )  & "  / 


cur_dir_index : =cur_dir_index+l ; 
C:=l; 
else 

current (C) : =Directory (I) ; 
C:=C+1; 
end  if; 

I:=I+1; 

if  I=D+1  then  exit; 
end  if; 
end  loop; 
cur r en t_di rectory (cur_dir_index)  ( 1 .  .C+l )  : =current ( 1 . . C-l ) &" /  " ; 
if  D>27  then 

directory _array  :=  Directory ( (D-26) . .D) ; 
else 

directory _array  :=  Directory ( 1 .. 27 ) ; 
end  i  f ; 
system_call("ls  -F  "ScDirectory  ( 1 .  .  D)  &  "  >  "&"  ls_f  ile" )  ; 
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list_di rectory ( ls_f ile, f ile_name, f ile_vec, number) ; 

TAE.Tae_Wpt . Wpt_SetStringConstraints ( Panel_query . Inf o . Panel_Id, "psdlsele 
ct " , taeint (number) , f ile_vec) ; 

TAE .Tae_Vm. Vm_SetString ( Panel_query . Info .View, "directorylabel "  ,  1 , directo 
ry_array , TAE . Tae_Vm . P_UPDATE ) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Panel_query . Inf o . Panel_Id, "directorylabel " , Pa 
nel_query . Info .View, "directorylabel " ) ; 

Dummy : =TAE .Tae_Wpt . Wpt_Pending; 

system_call ( "rm  ls_f ile" ) ; 

Connect_Panel  (TAE .Tae_Wpt . WPT_INVISIBLE) ; 
Panel_query . Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 

end  if; 

--  End  generated  code  for  Connection 
end  query _Event ; 
--  end  EVENT  HANDLERS 


Dispatch_Item  --  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

begin  --  Dispatch_Item 

if  TAE .Tae_Misc . s_equal  ("cancel",  User_Context_Ptr . Parm_Name)  then 
cancel_Event  (User_Context_Ptr ) ; 
elsif  TAE .Tae_Misc . s_equal  ("browse",  User_Context_Ptr . Parm_Name )  then 

browse_Event  (User_Context_Ptr ) ; 
elsif  TAE .Tae_Misc . s_equal  ("component",  User_Context_Ptr . Parm_Mame ) 
then 

component_Event  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Misc . s_equal  ("query",  User_Context_Ptr . Parm_Name)  then 

query _Event  (User_Context_Ptr ) ; 
end  if; 

end  Dispatch_Item; 

end  Panel_mainmenu; 
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I.   PANELADDFILE  PACKAGE 

1.   PANADDFILES.A 

--  ***  TAE  Plus  Code  Generator  version  V5 . 1 
__  ***  pile       :         pan_addf ile_s . a 
--  ***  Generated  :    May  21  16:12:31  1992 
__  ***  Revised  by  :  Dogan  Ozdemir 

* 

*     Panel_addf ile  --  Package  SPEC 

* 

it****************************************************************** 

with  TAE; 

with  X_Windows; 

package  Panel_addf ile  is 

PURPOSE: 

This  package  encapsulates  the  TAE  Plus  panel:   addfile 

These  subprograms  enable  panel  initialization,  creation,  destruction, 

and  event  dispatching.   For  more  advanced  manipulation  of  the  panel 

using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided, 

It  includes  the  Target  and  View  (available  after  initialization) 

and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel : 
addfile 


Info  :  TAE .Tae_Wpt . Event_Context_Ptr ;    --  panel  information 


Initialize_Panel  --  Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  —  TAE  Collection  read  from 

:  in  TAE. Tae_Co. Collect ion_Ptr  );    --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 
panel 
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EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is  raised  if  Collect ion_Read  not  initialized 
TAE  . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
Collection  Read 


Create  Panel 


Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


Flags  sent  to  Wpt_NewPanei 


Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows . Null_Window  ) ; 


--  Panel  origin  is  offset  from 
--  this  X  Window.   Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

-- I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Info . Panel_Id. 

EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 

TAE .TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect  Panel 


■-  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ); 


-  Panel  origin  is  offset  from 

-  this  X  Window.   Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

•- 1  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 

-- I    in  the  specif iec  Panel_State  and  stores  the  panel  Id  in 

--I    Info.Panel_Id. 

-- I  If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 

--I    In  this  case,  Relative_Window  is  ignored. 
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EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 

not  initialized 
TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 

created 
TAE.Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 

Panel  State  is  an  invalid  state 


Destroy_Panel 


Subprogram  SPEC 


procedure  Destroy_Panel ; 


id, 


PURPOSE: 

This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 

associated  panel  object  (not  the  target  and  view) . 

EXCEPTIONS : 

TAE.Tae_Wpt . BAD_PANEL_ID  is  raised  if  Info . Panel_Id  is  an  invalid 


NOTES : 

--I  Info. Panel_Id  is  set  to  TAE .NULL_PANEL_ID,  and  should  not  referenced 
--I  in  any  Wpt  call  until  it  is  created  again. 


D i spa tch_I tern 


•-  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr       •  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt . Event_Context_Ptr  ) ;  --  event. 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 


--I 

--I  EXCEPTIONS: 

--I  Application-specific 

end  Panel_addf ile; 
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PAN  ADDFILE  B.A 


***    TAE    Plus    Code   Generator   version   V5 . 1 
***    File  :    pan_addf ile_b.a 

May    21    16:12:31    1992 

Dogan  Ozdemir 


***  Generated 
***  Revised  by 


**•*********+*+*******•***********+****************************+*+* 

* 

*     Panel_addf ile  --  Package  BODY 
* 

**  +  •***•**•*•****•*•********  +  *•*****  +  *•******••••*•••*••**•••••**■*■-*■ 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Global, Text_IO; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel_mainmenu; 

package  body  Panel_addf ile  is 

NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event-generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
addfile 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 

An  item's  connection  information  changed 
For  the  panel  items: 

selpsdl,  selbody,  selspec,  cancel, 

ok,  inpsdl,  inspec,  inbody, 
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psdldirectory ,    specdirectory ,    bodydirectory 


--ADDED 

psdlf ile 

String  (1 

.30) 

=  (others=> 

specf ile 

String  (1 

.80) 

=  (others=> 

body file 

String  (1 

.80) 

=  (others=> 

err_string 

String  (1 

.80) 

=  (others=> 

ls_f ile, error_f ile 

f ile_type , 

f ile_name 

String ( 1. 

7)  :: 

=  "ls_file"; 

error_f name 

String (1 . 

9)  :: 

i  "errorfile 

number 

integer : =1 ; 

Initialize  Panel 


Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 


begin  --  Initialize_Panel 

Info  :=  new  TAE .Tae_Wpt . Event_Context ; 

Info .Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Info .Collection,  "addfile_v",  Info. View); 

TAE.Tae_Co.Co_Find  ( Info . Collect  ion,  "addfile_t",  Info. Target; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO.Put_Line  ( " Panel_addf ile . Initialize_Panel : 

&  "Collection_Read  not  initialized."); 
raise;  , 

when  TAE.Tae_Co.NO_SUCH_MEMBER  => 

Text_IO.Put_Line  ( "Panel_addf ile . Initialize_Panel : 

&  "(View  or  Target)  not  in  Collection."); 
raise; 


end  Initialize_Panel ; 


Create  Panel 


--  Subprogram  BODY 
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procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 


begin  --  Create_Panel 

if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
TAE . Tae_Wpt . Wpt_NewPane 1 

(  Dummy  =>  "  "  , 

Data_Vm  =>  Info. Target, 

View_Vm  =  >  Info. View, 

Relative_Window  =>  Relative_Window, 

User_Context  =>  Info, 

Flags  =>  Panel_State, 

Panel_Id  =>  Info . Panel_Id  ) ; 
else 

Text_IO . Put_Line  ("Panel  (addfile)  is  already  displayed.") 
end  if; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO. Put_Line  ( " Panel_addf ile .Create_Panel : 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE.TAE_FAIL  => 

Text_IO.Put_Line  ( " Panel_addf ile . Create_Panel : 

&  "Panel  could  not  be  created."); 
raise;  , 

end  Create_Panel ; 


Connect_Panel  --  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 
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Relative_Window 

:  in  X_Windows .Window 

:=  X  Windows. Null  Window  )  is 


begin  --  Connect_Panel 

if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

(  Relative_Window        =>  Relative_Window, 
Panel_State  =>  Panel_State  ) ; 

else 

TAE.Tae_Wpt .Wpt_SetPanelState  ( Inf o . Panel_Id,  Panel_State) ; 
end  i  f ; 

exception 

when  TAE.Tae_Wpt .BAD_STATE  => 

Text_IO. Put_Line  ( " Panel_addf ile .Connect_Panel : 

&  "Invalid  panel  state."); 
raise; 

end  Connect_Panel ; 


Destroy_Panel  --  Subprogram  BODY 


procedure  Destroy_Panel  is 

begin  --  Destroy_Panel 

TAE.Tae_Wpt .Wpt_PanelErase ( Info . Panel_Id) ; 

exception 

when  TAE.Tae_Wpt.BAD_PANEL_ID  => 

Text_IO. Put_Line  ( " Panel_addf ile .Destroy_Panel : 

&  "  Info.  Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE . Tae_Wpt . ERASE_NULL_PANEL  => 
--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
null; 

end  Destroy_Panel ; 
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—  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  -t-  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  + 


begin  EVENT  HANDLERS 


selpsdl_Event  --  Subprogram  SPEC  &  BODY 


procedure  selpsdl_Event 

(  Info  :  in  TAE.Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER.   Insert  application  specific  information. 
--I 

--I  NOTES:  This  procedure  reads  the  selected  item  and  determines  if  it 
is  a 

-- I         directory  or  a  psdl  file. 

Value    :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count    :  TAE.Taeint; 

N,M,K,S  :  integer:=l; 
Dummy    : Boolean; 
psdl_vec:s_vector (1 . . 1) :=  (others=>  new  STRING ( 1 .. 80 )) ; 

begin  --  selpsdl_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf o . Parm_Ptr ,  1,  Value(l)); 
else 

null; 
end  if; 

--ADDED 

psdl  filed.  .80)  :=Value(l)  (1.  .80)  ; 

parse_line (psdlf ile) ; 
strlen (psdlf ile, N) ; 

strlen (Directory , M) ; 

if  Is_a_directory  then 
K : =N+M ; 

cur_dir_index: =cur_dir_index+l ; 

Cur r en t_di rectory (cur_dir_ index) (1. . N) :=psdlfile(l. . N) ; 
for  node  in  (N+D..80  loop 
Current_directory (cur_dir_index) (node) :=' 
end  loop; 
Directory (1. .K) : =Directory ( 1 . .M) &" / "&psdlf ile ( 1 . . (N-l) ) ; 
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if  K>27  then 

directory_array  :=  Directory ( (K-26 ). .K) ; 
else 

directory _array  :=  Directory ( 1 .. 27 ) ; 
end  if; 

TAE . Tae_Vm. Vm_SetString ( Info. View, "psdldi rectory" , 1, directory_array , TAE . 
Tae_Vm.P_UPDATE) ; 

TAE.Tae_Wpt . Wpt_ViewUpdate (Info. Panel_Id, "psdldi rectory" , Info. View, "psdl 
directory" ) ; 

TAE . Tae_Vm. Vm_SetString ( Info .View, " speed i rectory" , 1 , directory_array , TAE . 
Tae_Vm . P_UPDATE ) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, " speed i rectory" , Info .View, " spec 
directory" ) ; 

TAE.Tae_Vm.Vm_SetString ( Info .View, "body directory" , 1, directory_array , TAE. 
Tae_Vm . P_UPDATE ) ; 

TAE.Tae_Wpt .Wpt_ViewUpdate (Info. Panel_Id, "bodydirectory " , Info. View, "body 
directory" ) ; 

system_call(  "Is  -F  "ScDirectory  ( 1 .  .K)  &"  >  "&" ls_f ile" ) ; 
1 is t_di rectory ( ls_f ile, f ile_name, f ile_vec, number) ; 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, " selpsdl " , taeint (numb 
er) , f ile_vec) ; 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Inf o . Panel_Id, "selspec" , taeint (numb 
er ) , f ile_vec) ; 

TAE.Tae_Wpt . Wpt_SetStringConstraints ( Info. Panel_Id, "selbody" , taeint (numb 
er ) , f ile_vec) ; 

Dummy: =TAE.Tae_Wpt .Wpt_Pending; 

system_call ( "rm  ls_f ile" ) ; 

Is_a_directory :=FALSE; 

elsif  Upper_directory  then 

strlen ( Cur r en t_di rectory (cur_dir_index) , S) ; 
for  drct  in  (M-S  +  D..80  loop 
Directory (drct) := '  ' ; 
end  loop; 

if  (M-S)>27  then 

directory _array  :=  Directory (( (M-S) -26) .. (M-S) ) ; 
else 

directory _array  :=  Directory ( 1 .. 27 ) ; 
end  i  f ; 
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TAE . Tae_Vm. Vm_SetString ( Info .View, " psd Id i rectory" , 1 , directory_array , TAE . 
Tae_Vm . P_UPDATE ) ; 

TAE.Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, " psd ldi rectory" , Info .View, "psdl 
directory" ) ; 

TAE .Tae_Vm.Vm_SetString ( Info .View, "specdirectory " , 1 , directory _array, TAE . 
Tae_Vm.P_UPDATE) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, " specdirectory" , Info .View, " spec 
directory" ) ; 

TAE  .  Tae_Viru  Vm_SetString  ( Info  .View,  "body  directory"  ,  1 ,  directory_array ,  TAE  . 
Tae_Vm.P_UPDATE) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, "bodydirectory "  ,  Info .View,  "body 
directory" ) ; 

cur_dir_index: =cur_dir_index-l ; 

system_call("ls  -F  "^Directory ( 1 . . (M-S) ) &"  >  "&" ls_f ile" ) ; 
list_directory ( ls_f ile, f ile_name, f ile_vec, number) ; 

TAE . Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, " selpsdl " , taeint ( numb 
er) , f ile_vec) ; 

TAE . Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, " selspec " , taeint ( numb 
er) , f ile_vec) ; 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, "selbody " , taeint (numb 
er) , f ile_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending; 

system_call ( " rm  ls_file"); 

Upper_directory : =FALSE ; 

else   --A  file  name  is  selected 
psdl_vec(l) .all : =psdlf ile; 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, " inpsdl " , 1 , psdl_vec ) ; 
Dummy: =TAE.Tae_Wpt .Wpt_Pending; 
end  if; 

--  End  default  generated  code 

end  selpsdl_Event ; 


selbody_Event  --  Subprogram  SPEC  &  BODY 
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procedure  selbody_Event 

(  Info  :  in  TAE.Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

--I  NOTES:  This  procedure  reads  the  selected  item  and  determines  if  it 
is  a 

--I         directory  or  a  implementation  body  file. 

Value    :  array  (1..1)  of  String  ( 1 . .TAE.Tae_Taeconf . STRINGSIZE) ; 
Count    :  TAE.Taeint; 

N,M,K,S  :  integer:=l; 

Dummy    :  Boolean; 
body_vec :  s_vector ( 1 . . 1 ) : =  (others=>  new  STRING ( 1 .. 80 ))  ; 

begin  --  selbody_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info  .  Parm_Ptr ,  1,  Valued)  ); 
else 

null; 
end  i  f ; 

--ADDED 

bodyfiled.  .80)  :=Value(l)  (1.  .80)  ; 

parse_line (bodyf ile) ; 

strlen (bodyf ile, N) ; 

strlen (Directory , M) ; 

if  Is_a_directory  then 
K:=N+M; 

cur_dir_index: =cur_dir_index+l ; 

Cur r en t_di rectory (cur_dir_index) ( 1 . .N) : = bodyf ile ( 1 . .N) ; 
for  node  in  (N+D..80  loop 

Current_directory (cur_dir_index) (node) :='  ' ; 
end  loop; 
Directory  (1.  .K)  :  =Directory  ( 1 .  .M)  &"  /  "Scbodyf  ile  ( 1 .  .  (N-l)  )  ; 

if  K>27  then 

directory_array  :=  Directory ( (K-26) . .K) ; 
else 

directory _array  :=  Directory  ( 1 .  .2.7)  ; 
end  if; 

TAE.Tae_Vm.Vm_SetString (Info. View, "psdldirectory " , 1 , directory _array,  TAE . 
Tae_Vm . P_UPDATE ) ; 

TAE.Tae_Wpt . Wpt_ViewUpdate (Info. Panel_Id, "psdldirectory" , Info. View, "psdl 
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directory" )  ; 

TAE.Tae_Vm.Vm_SetString ( Info .View, "specdi rectory " , 1 , directory_array , TAE . 
Tae_Vm . P_UPDATE ) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, " specdirectory " , Info .View, " spec 
directory" ) ; 

TAE.Tae_Vm. Vm_SetString ( Info. View, "bodydi rectory" , 1, directory_array , TAE. 
Tae_Vm.P_UPDATE) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, "bodydirectory " , Info .View, "body 
directory" ) ; 

system_call  (  "  Is  -F  "ScDirectory  ( 1 .  .K)  &"  >  "&"  ls_f  ile"  )  ; 
list_directory ( ls_f ile, f ile_name, f ile_vec, number) ; 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, "selpsdl " , taeint (numb 
er) , f ile_vec) ; 

TAE .Tae_Wpt .Wpt_SetStringConstraints ( Info . Panel_Id, " selspec" , taeint (numb 
er ) , f ile_vec) ; 

TAE.Tae_Wpt .Wpt_SetStringConstraints ( Info . Panel_Id, " selbody " , taeint (numb 
er ) , f ile_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 

system_call ( "rm  ls_f ile" ) ; 

Is_a_directory : =FALSE; 

elsif  Upper_directory  then 

strlen (Current_directory (cur_dir_index) , S) ; 
for  drct  in  (M-S  +  D..80  loop 
Directory (drct) := '  ' ; 
end  loop; 

if  (M-S)>27  then 

directory _array  :=  Directory (( (M-S) -26 ).. (M-S )) ; 
else 

directory _array  :=  Directory ( 1 .. 27 ) ; 
end  if; 

TAE. Tae_Vm.Vm_SetSt ring (Info. View, "psdldi rectory" , 1, directory_array , TAE . 
Tae_Vm.P_UPDATE) ; 

TAE.Tae_Wpt . Wpt_ViewUpdate ( Inf o . Panel_Id, "psdldirectory " , Info. View, "psdl 
directory" ) ; 

TAE . Tae_Vm . Vm_SetString ( Inf o .View, " specdirectory " , 1 , directory _array , TAE . 
Tae_Vm.P_UPDATE) ; 

TAE.Tae_Wpt .Wpt_ViewUpdate ( Info. Panel_Id, "specdirectory" , Info .View, "spec 
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directory" ) ; 

TAE . Tae_Vm. Vm_SetString ( Info .View, "bodydirectory " , 1 , directory _array, TAE . 
Tae_Vm . P_UPDATE ) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate ( Info . Pane 1_ Id, "bodydirectory" , Info .View, "body 
directory" ) ; 

cur_dir_index: =cur_dir_index-l ; 

system_call ( "Is  -F  "^Directory ( 1 . . (M-S) ) &"  >  "&" ls_f ile" ) ; 

list_di rectory ( ls_f ile, f ile_name, f ile_vec, number) ; 

TAE .Tae_Wpt .Wpt_SetStringConstraints ( Info . Panel_Id, " selpsdl " , taeint (numb 
er ) , f ile_vec) ; 

TAE . Tae_Wpt . Wpt_SetStringConstraints ( Inf o . Panel_Id, " selspec" , taeint (numb 
er ) , f ile_vec) ; 

TAE.Tae_Wpt . Wpt_SetStringConstraints ( Info. Panel_Id, "selbody" , taeint (numb 
er) , f ile_vec) ; 

Dummy: =TAE.Tae_Wpt .Wpt_Pending; 

system_call ( "rm  ls_file"); 

Upper_directory : =FALSE; 

else 

body_vec(l) .all : =bodyf ile; 

TAE.Tae_Wpt . Wpt_SetStringConstraints (Info. Panel_Id, "inbody" , 1, body_vec ) ; 
Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
end  if; 

--  End  default  generated  code 

end  selbody _Event ; 


selspec_Event  --  Subprogram  SPEC  &  BODY 


procedure  selspec_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 
--I 

--I  NOTES:  This  procedure  reads  the  selected  item  and  determines  if  it 
is  a 

--I         directory  or  a  implementation  spec  file. 
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Value    :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count    :  TAE.Taeint; 

N,M,K,S  :  integer:=l; 

Dummy    :  Boolean ; 
spec_vec :  s_vector ( 1 . . 1 ) : =  (others=>  new  STRING ( 1 .. 80 )) ; 

begin  --  selspec_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL    ( Inf o . Parm_Ptr ,     1,    Valued)  ); 
else 

null; 
end    i  f ; 

--ADDED 

specfile:=Value(l)  (1.  .80)  ; 

parse_line (specf ile) ; 

strlen (specf ile, N) ; 

strlen (Directory ,M) ; 

if  Is_a_directory  then 
K:=N+M; 

cur_dir_index: =cur_dir_index+l ; 

Cur r en t_di rectory (cur_dir_index) (1. .  N) :=specfile(l. .  N) ; 
for  node  in  (N+l) . .80  loop 

Current_directory (cur_dir_index) (node) :='  ' ; 
end  loop; 
Directory  (1.  .K)  :  =Directory  ( 1 .  .M)  &"  /  "Scspecf  ile  ( 1 .  .  (N-l)  )  ; 
if  K>27  then 

directory _array  :=  Directory ( (K-26 ). .K) ; 
else 

directory _array  :=  Directory ( 1 .. 27 ) ; 
end  i  f ; 

TAE. Tae_Vm.Vm_Set St ring (Info. View, "psdldirectory " , 1, directory _array , TAE. 
Tae_Vm . P_UPDATE ) ; 

TAE.Tae_Wpt .Wpt_ViewUpdate (Info. Panel_Id, "psdldirectory" , Info. View, "psdl 
directory" ) ; 

TAE.Tae_Vm.Vm_SetString( Info. View, " specdirectory " , 1, directory _array, TAE. 
Tae_Vm . P_UPDATE ) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, " specdirectory" , Inf o .View, "spec 
directory" ) ; 

TAE. Tae_Vm.Vm_SetSt ring (Info. View, "bodydi rectory" , 1, di rectory _array, TAE. 
Tae_Vm.P_UPDATE) ; 
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TAE.Tae_Wpt . Wpt_ViewUpdate (Info. Panel_Id, "bodydirectory " , Info. View, "body 
directory" ) ; 

system_call ( "Is  -F  "^Directory ( 1 . .K) &"  >  "&" ls_f ile" ) ; 
list_directory ( ls_f ile, f ile_name, f ile_vec, number) ; 

TAE.Tae_Wpt . Wpt_SetStringConstraints ( Info. Panel_Id, "selpsdl" , taeint (numb 
er ) , f ile_vec) ; 

TAE.Tae_Wpt .Wpt_SetStringConstraints ( Info. Panel_Id, "selspec" , taeint (numb 
er ) , f ile_vec) ; 

TAE.Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, "selbody" , taeint (numb 
er ) , f ile_vec) ; 

Dummy: =TAE . Tae_Wpt .Wpt_Pending; 

system_call ( "rm  ls_file"); 

Is_a_directory : =FALSE; 

elsif  Upper_directory  then 

strlen (Current_directory (cur_dir_index) , S) ; 
for  drct  in  (M-S  +  D..80  loop 
Directory (drct ):= '  ' ; 
end  loop; 

if  (M-S)>27  then 

directory_array  :=  Directory (( (M-S) -26 ).. (M-S) ) ; 
else 

directory _array  :=  Directory ( 1 .. 27 ) ; 
end  i  f ; 

TAE.Tae_Vm.Vm_SetString ( Info. View, "psdldirectory " , 1, directory_array , TAE. 
Tae  Vm . P  UPDATE ) ; 

TAE.Tae_Wpt .Wpt_ViewUpdate ( Info. Panel_Id, "psdldirectory" , Info. View, "psdl 
directory" ) ; 

TAE . Tae_Vm. Vm_SetString ( Inf o.yiew, "specdirectory " , 1 , directory _array,  TAE . 
Tae_Vm.P_UPDATE) ; 

TAE.Tae_Wpt . Wpt_ViewUpdate (Info. Panel_Id, "specdirectory" , Info .View, "spec 
directory" ) ; 

TAE.Tae_Vm.Vm_SetString( Info. View, "bodydirectory" , 1, di rectory _array, TAE. 
Tae_Vm.P_UPDATE) ; 

TAE.Tae_Wpt .Wpt_ViewUpdate ( Info . Panel_Id, "bodydirectory" , Info. View, "body 
directory" ) ; 

cur_dir_index : =cur_dir_index- 1 ; 

system_call(  "Is  -F  "ScDirectory  ( 1 .  .  (M-S)  )  &"  >  "&"  ls_f  ile" )  ; 

list_directory ( ls_f ile, f ile_name, f ile_vec, number) ; 
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TAE.Tae_Wpt . Wpt_SetStringConstraints (Info. Panel_Id, "selpsdl" , taeint (numb 
er) , f ile_vec) ; 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, "selspec" , taeint (numb 
er ) , f ile_vec) ; 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, "selbody " , taeint (numb 
er ) , f ile_vec ) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 

system_call ( "rm  ls_file"); 
Upper_directory : = FALSE; 

else 

spec_vec ( 1 ) .all : =specf ile ; 

TAE . Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, " inspec " , 1 , spec_vec ) ; 
Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
end  i  f ; 


--  End  default  generated  code 
end  selspec_Event ; 

cancel_Event  --  Subprogram  SPEC  &  BODY 


procedure  cancel_Event 

(  Info  :  in  TAE .Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGS I ZE) 
Count  :  TAE. Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL    ( Info  .  Parm_Ptr ,     1,    Valued)  ); 
else 

null; 
end  if; 
--  End  default  generated  code 
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--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE .Tae_Wpt . WPT_INVISIBLE) ; 
Panel_mainmenu.Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 
--  End  generated  code  for  Connection 

--ADDED 

TAE.Tae_Wpt . Wpt_PanelReset ( Info. Panel_Id) ; 

for  J  in  1 . . 80  loop 
Directory ( J) : = '  ' ; 
end  loop; 

for  K  in  1 . . cur_dir_index  loop 
for  L  in  1 . . 80  loop 

current_directory (K) (L) :='  ' ; 
end  loop; 
end  loop; 

for  A  in  1..27  loop 

directory_array ( A) : = '  '; 
end  loop; 
cur_dir_index: =1 ; 
end  cancel_Event ; 


ok_Event  --  Subprogram  SPEC  &  BODY 


procedure  ok_Event 

(  Info  :  in  TAE.Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 
--I 

--I  NOTES:  After  all  the  files  are  selected,  this  procedure  activates  the 
-- I         software  base  and  adds/updates  the  component. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGS I ZE) ; 
Count  :  TAE.Taeint; 

--ADDED 

N,M,L,K, J, S: Integer :=1; 

begin  --  ok_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf o . Parm_Ptr ,  1,  Valued)); 
else 
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null  ; 
end  i  f ; 

global .strlen(psdlfile,N) 
global . strlen (specf ile,M) 
global .strlen (bodyf ile, L) 
global .strlen (Directory, K) 
global . strlen ( library, J) ; 


if  Component_add  then 

global . system_call ( com& "ca  "& library ( 1 . . J) &"  "^Directory ( 1 . . K) &" / 
"Ecpsdl  filed.  .N)&"  "^Directory (1.  .K)  &"  /  "&specf  ile  ( 1 .  .M)&" 
"^Directory ( 1 . .K) &"/ "&bodyf ile ( 1 . .L) &"  >  "&error_fname ) ; 

global . error string (error_f ile, error_f name, err_string) ; 
global . strlen (err_string, S) ; 
if  S>1  then 

TAE .Tae_Wpt .Wpt_PanelMessage (info .panel_id, err_string) ; 
S:=l; 
end  if; 

global . sy st em_call ( "rra  "&error_fname) ; 
for  ESA  in  1..80  loop 

err_string(ESA) :=' 
end  loop; 
Component_add : =FALSE ; 

elsif  Component_Update  then 

global . system_call (com&"cu  "&library ( 1 . . J) &"  "^Directory ( 1 . .K) &" / 
"&psdlfile(l.  .N)&"  "ScDirectory  (1.  .K)  &"  /  "&specf  ile  ( 1 .  .M)&" 
"ScDirectory  (1.  .K)&"/ "&body  filed.  .L)&"  >  "&error_fname)  ; 

global .errorstring (error_f ile, error_fname, err_string) ; 
global . strlen (err_string, S) ; 
if  S>1  then 

TAE .Tae_Wpt . Wpt_PanelMessage (info .panel_id, err_string) ; 
S:=l; 
end  if; 
global . system_call ( "rm  "&error_f name) ; 
for  ESU  in  1.  .80  loop 

err_string(ESU) :=' 
end  loop; 
Component_update : =FALSE ; 
end  if; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 

Panel_mainmenu.Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

TAE.Tae_Wpt .Wpt_PanelReset ( Inf o . Panel_Id) ; 
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for  X  in  1 . .80  loop 
Directory (X) :='  ' ; 
end  loop; 

for  Y  in  1 . . cur_dir_index  loop 
for  P  in  1 . . 80  loop 

current_directory ( Y) (P) :='  ' ; 
end  loop; 
end  loop; 
for  AA  in  1..27  loop 

directory _array (AA) :='  ' ; 
end  loop; 
cur_dir_index: =1 ; 

end  ok_Event ; 

--  end  EVENT  HANDLERS 


Dispatch_Item  --  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE .Tae_Wpt .Event_Context_Ptr  )  is 


begin  --  Dispatch_Item 

if  TAE.Tae_Misc .s_equal  ("selpsdl",  User_Context_Ptr . Parm_Name)  then 

selpsdl_Event  (User_Context_Ptr ) ; 
elsif  TAE .Tae_Misc . s_equal  ("selbody",  User_Context_Ptr . Parm_Name) 
then 

selbody_Event  (User_Context_Ptr ) ; 
elsif  TAE .Tae_Misc . s_equal  ("selspec",  User_Context_Ptr . Parm_Name) 
then 

selspec_Event  (User_Context_Ptr ) ; 
elsif  TAE. Tae_Misc . s_equal  ("cancel",  User_Context_Ptr . Parm_Name)  then 
cancel_Event  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Misc .s_equal  ("ok",  User_Context_Ptr . Parm_Name)  then 

ok_Event  (User_Context_Ptr ) ; 
end  if; 

end  Dispatch_Item; 

end  Panel_addf ile; 
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J.      PANEL  KEYWORD  PACKAGE 


1.       PAN  KEYWORD  S.A 


***  TAE  Plus  Code  Generator  version  V5 . 1 


***  File 

***  Generated 

***  Revised  by 


pan_keyword_s . a 

May  21  16:12:31  1992 

Dogan  Ozdemir 


♦  ♦it**************************************************************** 


Pane l_keyword 


Package  SPEC 


•  •***•*••*•*********•*******•*****•**•*  +  *•**•***•••**••**•*■•■*■•***•• 


with  TAE; 

with  X_Windows; 

package  Panel_keyword  is 


PURPOSE: 

This  package  encapsulates  the  TAE  Plus  panel :   keyword 

These  subprograms  enable  panel  initialization,  creation,  destruction, 

and  event  dispatching.   For  more  advanced  manipulation  of  the  panel 

using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 

It  includes  the  Target  and  View  (available  after  initialization) 

and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
keyword 


Info  :  TAE.Tae_Wpt .Event_Context_Ptr ;    --  panel  information 


Initialize  Panel 


--  Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  ) ;    --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 

-- I  panel 

--I 
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I  EXCEPTIONS : 

I  TAE.UNINITIALIZED_PTR  is  raised  if  Collect ion_Read  not  initialized 

I  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 

I     Collection  Read 


Create  Panel 


Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


■-  Flags  sent  to  Wpt_NewPanel 


Relative_Window 

:  in  X_Windows .Window 

:=  X  Windows. Null  Window 


--  Panel  origin  is  offset  from 
--  this  X  Window.   Null_Window 
--  uses  the  root  window. 


I  PURPOSE: 
This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Info . Panel_Id. 

EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 

TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect  Panel 


Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ); 


•-  Panel  origin  is  offset  from 
•-  this  X  Window.   Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

■- I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 

in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 

Info.Panel_Id. 
If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 

In  this  case,  Relative_Window  is  ignored. 

EXCEPTIONS: 
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TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 

not  initialized 
TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 

created 
TAE.Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 

Panel  State  is  an  invalid  state 


Destroy_Panel 


--  Subprogram  SPEC 


procedure  Destroy_Panel ; 


id 


PURPOSE: 

This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 

associated  panel  object  (not  the  target  and  view) . 

EXCEPTIONS : 

TAE.Tae_Wpt . BAD_PANEL_ID  is  raised  if  Inf o . Panel_Id  is  an  invalid 


NOTES : 

Info.Panel_Id  is  set  to  TAE .NULL_PANEL_ID,  and  should  not  referenced 
in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


--  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt .Event_Context_Ptr  );  --  event. 

--I  PURPOSE: 

--  I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 


--I  EXCEPTIONS: 

--I  Application-specific 

end  Panel_keyword; 
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2.       PAN  KEYWORD  B.A 


•-    ***    TAE    Plus    Code   Generator   version   V5 . 1 

***    File  :    pan_keyword_b . a 

May    21    16:12:31    1992 

Dogan  Ozdemir 
it****************************************************************** 


***  Generated 
***  Revised  by 


*     Panel_keyword  --  Package  BODY 

* 

**•**•*•*•*••*•*••***••*•*  +  **•*•••****•*••*******•  +  **•*••****•*•**-*• 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Text_IO, Global; 

--  One  "with"  statement  for  each  connected  panel. 
with  Panel_mainmenu; 
with  Panel_compsel ; 

package  body  Panel_keyword  is 

NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event-generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
keyword 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 

An  item's  connection  information  changed 
For  the  panel  items: 

kwavail,  kwselected,       cancel,  ok, 
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--ADDED 
kw_vec 
kwadd_vec 
kw_s elected 
kw_list 
f ile_name 
number, index 


s_vector (1 .  .  100)  :  =  (others=>  new  STRING ( 1 .. 80 ) 

s_vector ( 1 . . 15) :=  (others=>  new  STRING ( 1 .. 30 ) ) 

String  (1..80):=  (others=>'  ' ); 

f ile_type ; 

String (1.. 7)  :=  "kw_list"; 

integer :=1; 


Initialize  Panel 


Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 


begin  --  Initialize_Panel 

Info  :=  new  TAE . Tae_Wpt . Event_Context ; 

Info .Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Info .Collection,  "keyword_v",  Info. View); 

TAE.Tae_Co.Co_Find  ( Info .Collection,  "keyword_t",  Info .Target ) ; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_keyword. Initialize_Panel : 

&  "Collection_Read  not  initialized."); 
raise; 

when  TAE . Tae_Co . NO_SUCH_MEMBER  => 

Text_I0 . Put_Line  ( "Panel_keyword. Initialize_Panel :   " 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel ; 


Create  Panel 


■-  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 
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Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 


begin  --  Create_Panel 

if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
TAE.Tae_Wpt .Wpt_NewPanel 

(  Dummy  =>  " " , 

Data_Vm  =>  Info. Target, 

View_Vm  =>  Info. View, 

Relative_Window       =>  Relative_Window, 
User_Context  =>  Info, 

Flags  =>  Panel_State, 

Panel_Id  =>  Inf o . Panel_Id  ) ; 

else 

Text_IO . Put_Line  ("Panel  (keyword)  is  already  displayed.") 
end  if; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO. Put_Line  ( " Panel_keyword .Create_Panel : 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE.TAE_FAIL  => 

Text_IO . Put_Line  ( " Panel_keyword.Create_Panel : 

&  "Panel  could  not  be  created."); 
raise; 


end  Create_Panel ; 


Connect_Panel  --  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 
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--ADDED 
Dummy : Boolean; 

dir   :constant  String :=" $HOME/caps/src/sof tware_base/ " ; 
L     : integer :  =1 ; 

begin  --  Connect_Panel 

if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

(  Relat ive_Window        =>  Relative_Window, 
Panel_State  =>  Panel_State  ) ; 

end  if; 

--ADDED 
strlen ( library , L) ; 

system_call (com&"kwl  "Sdibrary (1 . .L) &"  "&"kw_list " ) ; 
list_components (kw_list , f ile_name, kw_vec, number) ; 
TAE.Tae_Wpt .Wpt_SetPanelState  ( Inf o . Panel_Id,  Panel_State) ; 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, "kwavail " , taeint (numb 
er ) , kw_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 

system_call ( "rm  kw_list"); 

exception 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO.Put_Line  ( " Panel_keyword .Connect_Panel : 

5=  "Invalid  panel  state."); 
raise; 

end  Connect_Panel ; 


Destroy_Panel  --  Subprogram  BODY 

procedure  Destroy_Panel  is 

begin  --  Destroy_Panel 

TAE.Tae_Wpt . Wpt_PanelErase ( Inf o . Panel_Id) ; 

exception 

when  TAE.Tae_Wpt .BAD_PANEL_ID  => 

Text_IO.Put_Line  ( " Panel_keyword.Destroy_Panel : 
&  " Info . Panel_Id  is  an  invalid  id."); 
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raise; 

when  TAE.Tae_Wpt . ERASE_NULL_PANEL  => 
--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing. 
null; 

end  Destroy_Panel ; 

--  begin  EVENT  HANDLERS 


kwavail_Event  --  Subprogram  SPEC  &  BODY 


procedure  kwavail_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information, 


Value  :  array  (1..1)  of  String  ( 1 . .TAE.Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  kwavail_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info . Parm_Ptr ,  1,  Valued)  ); 
end  if; 

--ADDED 

kw_selected(l. .80) :=Value(l) (1. .80) ; 

kwadd_vec ( index) .all : =kw_selected; 

TAE.Tae_Wpt .Wpt_SetStringConstraints ( Info . Pane l_Id, "kwselected" , taeint (i 
ndex) ,kwadd_vec) ; 

index: =index+l; 


--  End  default  generated  code 
end  kwavail_Event ; 
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cancel_Event  --  Subprogram  SPEC  &  BODY 


procedure  cancel_Event 

(  Info  :  in  TAE.Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info. Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info .  Parm_Ptr,  1,  Valued)); 
else 

null; 
end  if; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 
Panel_mainmenu.Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

--ADDED 

for  J  in  l..(index-l)  loop 
for  K  in  1.  .80  loop 

kwadd_vec(J) .all(K) :=' 
end  loop; 
end  loop; 
index: =1 ; 

kw_selected(l. .5)  :=  " 
TAE.Tae_Wpt .Wpt_PanelReset ( Inf o . Panel_Id) ; 

end  cancel_Event ; 


ok_Event  --  Subprogram  SPEC  &  BODY 
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procedure  ok_Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGS I ZE) ; 

Count  :  TAE.Taeint; 

--ADDED 

N  :  integer :=1, • 

kwquery_f ile :  file_type; 

Dummy        :  Boolean; 

kwq_outfile  :  file_type; 


begin  --  ok_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf o . Parm_Ptr ,  1,  Valued)  ); 
end  i  f ; 
--ADDED 
if  kw_selected(l . . 5)  =  "      "  then 

TAE.Tae_Wpt . Wpt_PanelMessage ( inf o .panel_id, "NO  KEYWORD  IS 
SELECTED") ; 
else 

create (kwquery_f ile, mode=>out_f ile, name=>"query_f ile" ) ; 
for  I  in  l..(index-l)  loop 

put_line (kwquery_f ile, kwadd_vec ( I ) .all) ; 
end  loop; 
strlen ( library , N) ; 

system_call (com&"kwq  "Sclibrary  ( 1 .  .N)  &"  "&"query_f ile"&" 
"£ckwquery_outf  ile)  ; 

delete (kwquery_f ile) ; 

list_components (kwq_outf ile, kwquery_outf ile, f ile_vec, num_of_comp) ; 

TAE.Tae_Wpt . Wpt_SetStringConstraints ( Panel_compsel . Info . Panel_Id, "compse 
1 " , taeint (num_of_comp) , f ile_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 

system_call ( "rm  kwquery_outf ile" ) ; 


--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 
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Panel_compsel .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) 

--  End  generated  code  for  Connection 

--ADDED 

for  J  in  l..(index-l)  loop 
for  K  in  1 . .80  loop 

kwadd_vec(J) .all (K) :=' 
end  loop; 
end  loop; 
index: =1 ; 

kw_selected ( 1 . . 5 )  :=  "      "; 
TAE.Tae_Wpt . Wpt_PanelReset ( Inf o . Panel_Id) ; 

end  i  f ; 

end  ok_Event ; 

--  end  EVENT  HANDLERS 


Dispatch_Item  --  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE .Tae_Wpt .Event_Context_Ptr  )  is 


begin  --  Dispatch_Item 

if  TAE.Tae_Misc.s_equal  ("kwavail",  User_Context_Ptr . Parm_Name)  then 

kwavail_Event  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Misc .s_equal  ("cancel",  User_Context_Ptr . Parm_Name)  then 

cancel_Event  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Misc  .  s_equal  ("ok",  User_Context_Ptr  .  Parm_Naine)  then 

ok_Event  (User_Context_Ptr ) ; 
end  if; 

end  Dispatch_Item; 

end  Panel_keyword; 
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K.     PANEL  QUERY  PACKAGE 


1.       PANQUERYS.A 

***    TAE    Plus    Code   Generator   version   V5 . 1 


***    File 

***    Generated 

***    Revised   by 


pan_query_s . a 

May    21    16:12:31    1992 

Dogan   Ozdemir 
****••*******+**•*************•*•*•********•**********•************ 


*  Panel_query  --    Package   SPEC 

* 

******************************************************************* 

with   TAE; 

with  X_Windows; 

package  Panel_query  is 

PURPOSE: 

This  package  encapsulates  the  TAE  Plus  panel:   query 

These  subprograms  enable  panel  initialization,  creation,  destruction, 

and  event  dispatching.   For  more  advanced  manipulation  of  the  panel 

using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 

It  includes  the  Target  and  View  (available  after  initialization) 

and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
query 

Info  :  TAE .Tae_Wpt . Event_Context_Ptr ;    --  panel  information 


Initialize_Panel  --  Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  )  ;    -'-  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 

-- I  panel 
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--I  EXCEPTIONS: 

--I  TAE.UNINITIALIZED_PTR  is  raised  if  Collect ion_Read  not  initialized 

--I  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 

--I     Collection  Read 


Create  Panel 


-  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


--  Flags  sent  to  Wpt_MewPanel . 


Re lat  i ve_Window 

:  in  X_Windows .Window 

:=  X  Windows. Null  Window 


--  Panel  origin  is  offset  from 
--  this  X  Window.   Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

-  I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Info . Panel_Id. 

EXCEPTIONS: 

TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 

TAE .TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect  Panel 


Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


Relative_Window 

:  in  X_Windows .Window 

:=  X  Windows. Null  Window 


Panel  origin  is  offset  from 
this  X  Window.  Null_Window 
-  uses  the  root  window. 


PURPOSE: 
If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 

in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 

Info. Panel_Id. 
If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 

In  this  case,  Relative_Window  is  ignored. 

EXCEPTIONS : 
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TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 

not  initialized 
TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 

created 
TAE.Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 

Panel  State  is  an  invalid  state 


Destroy_Panel 


■-  Subprogram  SPEC 


procedure  Destroy_Panel ; 


id, 


PURPOSE: 

This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 

associated  panel  object  (not  the  target  and  view) . 

EXCEPTIONS : 

TAE.Tae_Wpt . BAD_PANEL_ID  is  raised  if  Info . Panel_Id  is  an  invalid 


NOTES : 

Info. Panel_Id  is  set  to  TAE .NULL_PANEL_ID,  and  should  not  referenced 
I  in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


--  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt .Event_Context_Ptr  ) ;  --  event. 

i 
--I  PURPOSE: 
--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 


--I  EXCEPTIONS: 

--I  Application-specific 

end  Panel_query; 
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2.       PANQUERYB.A 


***  TAE  Plus  Code  Generator  version  V5 . 1 

***  File 

***  Generated 

***  Revised  by 


pan_query_b . a 

May  21  16:12:31  1992 

Dogan  Ozdemir 


******************************************************************* 


Panel_query 


-  Package  BODY 


******************************************************************* 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Global, Text_IO; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel_mainmenu; 
with  Panel_compsel ; 

package  body  Panel_query  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
query 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 

An  item's  connection  information  changed 
For  the  panel  items: 

psdlselect,       psdlin,  directory label ,   cancel, 
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--I 


ok 


--ADDED 

psdlfile  :String  (1..80):=  (others=> 

current   :String  (1..80):=  (others=> 

ls_file   :file_type; 

q_outf ile : f ile_type ; 

f ile_name : String ( 1 .. 7 )  :=  "ls_file"; 

number    : integer : =1 ; 

Dummy     : Boolean; 


Initialize  Panel 


Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 

begin  --  Initialize_Panel 

Info  :=  new  TAE . Tae_Wpt . Event_Context ; 

Info .Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Info .Collection,  "query_v",  Info. View); 

TAE.Tae_Co.Co_Find  ( Info . Collection,  "query_t",  Info. Target) 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_query . Initialize_Panel :   " 

&  "Collection_Read  not  initialized."); 
raise; 

when  TAE . Tae_Co . NO_SUCH_^^MBER  =  > 

Text_IO. Put_Line  ( " Panel_query . Initialize_Panel : 

&  "(View  or  Target)  not  in  Collection."); 
raise; 


end  Initialize_Panel ; 


Create  Panel 


•-  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 
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:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 


--I  NOTES:  (none) 

begin  --  Create_Panel 

if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
TAE.Tae_Wpt . Wpt_NewPanel 

(  Dummy  =>  "  "  , 

Data_Vm  =>  Info. Target, 

View_Vm  =  >  Info. View, 

Relative_Window  =>  Relative_Window, 

User_Context  =>  Info, 

Flags  =>  Panel_State, 

Panel_Id  =>  Inf o . Panel_Id  ); 
else 

Text_IO . Put_Line  ("Panel  (query)  is  already  displayed."); 
end  i  f ; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO. Put_Line  ( " Panel_query .Create_Panel :   " 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE.TAE_FAIL  => 

Text_IO. Put_Line  ( " Panel_query .Create_Panel : 

&  "Panel  could  not  be  created."); 
raise; 

i 

end  Create_Panel ; 


Connect_Panel  --  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative  Window 
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:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 

--I  NOTES:  (none) 
begin  --  Connect_Panel 

if  Info.Panel_Id  =  Tae . Null_Panel_Id  then 
Create_Panel 

(  Relative_Window        =  >  Relative_Window, 
Panel_State  =>  Panel_State  )  ; 

else 

TAE.Tae_Wpt . Wpt_SetPanelState  ( Info. Panel_Id,  Panel_State) ; 
end  i  f ; 

exception 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO . Put_Line  ( " Panel_query .Connect_Panel : 

&  "Invalid  panel  state."); 
raise; 

end  Connect_Panel ; 


Destroy_Panel  --  Subprogram  BODY 

procedure  Destroy_Panel  is 

begin  --  Destroy_Panel 

TAE.Tae_Wpt . Wpt_PanelErase ( Info. Panel_Id) ; 

exception 

when  TAE.Tae_Wpt .BAD_PANEL_ID  => 

Text_IO . Put_Line  ( " Panel_query .Destroy_Panel :   " 

&  " Info . Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE.Tae_Wpt.ERASE_NULL_PANEL  => 
--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
nu  1 1  ; 

end  Destroy_Panel ; 
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-  begin  EVENT  HANDLERS 


psdlselect_Event  --  Subprogram  SPEC  &  BODY 


procedure  psdlselect_Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

--ADDED 

N,M,K,S  :  integer:=l; 

Dummy    : Boolean; 

psdl_vec:s_vector (1. . 1) :=  (others=>  new  STRING ( 1 .. 80 )) ; 

begin  --  psdlselect_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf  o  .  Parm_Ptr ,  1,  Valued)); 
end  if; 
--ADDED 

psdlfile:=Value(l) (1. .80) ; 
parse_line (psdlf ile) ; 
strlen (psdlf ile,N) ; 
strlen (Directory, M) ; 
if  Is_a_directory  then 
K:=N+M; 
Directory (1. .K) : =Directory ( 1 . .M) &" / "kpsdlf ile ( 1 . . (N-l) ) ; 

if  K>27  then 

directory _array  :=  Directory ( (K-26) . .K) ; 
else 

directory _array  :=  Directory ( 1 .. 27 ) ; 
end  i  f ; 

TAE . Tae_Vm. Vm_SetString ( Inf o .View, " direct orylabe 1 " , 1 , directory_array , TAE 
. Tae_Vm . P_UPDATE ) ; 

TAE.Tae_Wpt . Wpt_ViewUpdate (Info. Panel_Id, " di rectory labe 1 " , Info. View, "dir 
ectory label " ) ; 

system_call  ( "Is  -F  "ScDirectory  ( 1 .  .K)  £="  >  "&"  ls_f  ile"  )  ; 
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list_directory (ls_f ile, file_name, file_vec, number) ; 

TAE.Tae_Wpt  .  Wpt_SetStringConstramts  (Info.  Panel_Id,  "psdl  select"  , taeint (n 
umber) , f ile_vec) ; 

Dummy :=TAE.Tae_Wpt . Wpt_Pending ; 

cur_dir_index: =cur_dir_index+l ; 

Current_directory (cur_dir_index) (1. .N) : =psdlf ile ( 1 . .N) ; 

for  node  in  (N+l) . .80  loop 

Current_directory (cur_dir_index) (node) :='  ' ; 
end  loop; 

system_call ( "rm  ls_file"); 

Is_a_directory : =FALSE ; 

elsif  Upper_directory  then 

strlen (Current_directory (cur_dir_index) ,  S) ; 
for  drct  in  (M-S+D..80  loop 
Directory (drct ) :='  ' ; 
end  loop; 
if  (M-S)>27  then 

directory_array  :=  Directory (( (M-S) -26 ).. (M-S) ) ; 
else 

directory _array  :=  Directory ( 1 .. 27 ) ; 
end  if; 

TAE.Tae_Vm.Vm_SetString (Info. View,  "directorylabel " , 1, directory_array ,  TAE 
. Tae_Vm . P_UPDATE ) ; 

TAE.Tae_Wpt .Wpt_ViewUpdate (Info. Panel_Id, "directorylabel" ,  Info. View,  "dir 
ectorylabel " ) ; 

cur_dir_index: =cur_dir_index-l ; 

system_call ( "Is  -F  "&Directory ( 1 . . (M-S) ) &"  >  "&" ls_f ile" ) ; 

list_directory ( ls_f ile, f ile_name, f ile_vec, number) ; 

TAE.Tae_Wpt . Wpt_SetStringConstraints (Info. Panel_Id, "psdl select" , taeint (n 
umber) , f ile_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 

system_call ( "rm  ls_f ile" ) ; 

Upper_directory : =FALSE; 

else   --A  file  name  is  selected 
psdl_vec(l) .all : =psdlf ile; 

TAE.Tae_Wpt . Wpt_SetStringConstraints (Info. Panel_Id, "psdl in" , 1, psdl_vec) ; 
Dummy: =TAE.Tae_Wpt .Wpt_Pending; 
end  i  f ; 


--  End  default  generated  code 
end  psdlselect_Event ; 
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cancel_Event  --  Subprogram  SPEC  &  BODY 


procedure  cancel_Event 

(  Info  :  in  TAE.Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 .. TAE .Tae_Taeconf . STRINGS I ZE) ; 
Count  :  TAE.Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info  .  Parm_Ptr ,  1,  Valued)); 
end  i  f ; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 
Panel_mainmenu.Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

--ADDED 

TAE.Tae_Wpt .Wpt_PanelReset ( Info . Panel_Id) ; 
for  J  in  1..80  loop 

Directory (J) : = ' 
end  loop; 

for  K  in  1 . . cur_dir_index  loop 
for  L  in  1..80  loop 

current_directory (K) (L) :=' 
end  loop; 
end  loop; 
for  A  in  1..27  loop 

directory _array (A) :='  ' ; 
end  loop; 
cur_dir_index: =1 ; 

end  cancel_Event ; 
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ok_Event  --  Subprogram  SPEC  &  BODY 


procedure  ok_Event 

(  Info  :  in  TAE.Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

--ADDED 

N,K, J, S: Integer :=1; 
teststring:String ( 1 . . 80 ) : =  (others=>'  '  )  ; 

begin  --  ok_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info . Parm_Ptr,  1,  Value (1)); 
end  if; 

--ADDED 

strlen (psdlf ile, N) ; 

strlen (Directory , K) ; 
strlen ( library , J) ; 

system_call (com&"cq  "&library  ( 1 .  .  J)  &"  "ScDirectory  ( 1 .  .K)  &"  / 
"kpsdlf ile ( 1 . .N)&"  "&query_outf ile) ; 

list_components (q_outf ile, query_outf ile, f ile_vec, num_of_comp) ; 

--strlen (file_vec(l) .all,S) ; 

open (q_outf ile, mode =>in_f ile, name=>query_outf ile) ; 
Text_IO .get_line (q_outf ile, teststring,S) ; 
close (q_outf ile) ; 
if  teststringd.  .5)="      "  then 

TAE.Tae_Wpt.Wpt_PanelMessage(info.panel_id, "NO  MATCHING  COMPONENT 
IS  FOUND") ; 

system_call ( "rm  query _outf ile" ) ; 
else 


TAE.Tae_Wpt . Wpt_SetStringConstraints ( Panel_compsel . Inf o . Panel_Id, "compse 
1 " , taeint (num_of_comp) , f ile_vec) ; 

Dummy: =TAE.Tae_Wpt .Wpt_Pending; 

system_call ( "rm  query _outf ile" ) ; 

Query : =  True ; 

Query_psdl(l.  .N)  :=  psdlfiled.  .N)  ; 
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system_call  (  "cp  "ScDirectory  ( 1 .  .K) &" / "&psdlf ile ( 1 .  .N)&"  .  "  ) 
--  End  default  generated  code 
--  Begin  generated  code  for  Connection 
Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 
Panel_compsel .Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

- -ADDED 

TAE.Tae_Wpt . Wpt_PanelReset ( Info . Panel_Id) ; 
for  X  in  1 . .80  loop 

Directory (X) : = ' 
end  loop; 

for  Y  in  1 . . cur_dir_index  loop 
for  Z  in  1 .  .80  loop 

current_directory ( Y) (Z) :='  '  ; 
end  loop; 
end  loop; 
for  AA  in  1..27  loop 

directory _array (AA) :=  '  '  ; 
end  loop; 
cur_dir_index: =1 ; 

end  if; 

end  ok_Event ; 

--  end  EVENT  HANDLERS 


Dispatch_Item  --  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

begin  --  Dispatch_Item 

if  TAE .Tae_Misc . s_equal  ( "psdlselect " ,  User_Context_Ptr . Parm_Name) 
then 

psdlselect_Event  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Misc.s_equal  ("cancel",  User_Context_Ptr . Parm_Name)  then 
cancel_Event  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Misc . s_equal  ("ok",  User_Context_Ptr . Parm_Name )  then 

ok_Event  (User_Context_Ptr) ; 
end  if; 
end  Dispatch_Item; 

end  Panel_query; 
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L.      PANEL  COMPSEL  PACKAGE 


1.   PAN  COMPSEL  S.A 


***  TAE  Plus  Code  Generator  version  V5 . 1 


***  File 

***  Generated 

***  Revised  by 


pan_compsel_s .a 

May  21  16:12:31  1992 

Dogan  Ozdemir 


******•**************•*******************+*****•******************* 

* 

*     Panel_compsel  --  Package  SPEC 
* 

*************************************  +  *******  +  ****  +  ***********■**■*•** 

with  TAE; 

with  X_Windows ; 

package  Panel_compsel  is 


PURPOSE: 

This  package  encapsulates  the  TAE  Plus  panel:   compsel 

These  subprograms  enable  panel  initialization,  creation,  destruction, 

and  event  dispatching.   For  more  advanced  manipulation  of  the  panel 

using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 

It  includes  the  Target  and  View  (available  after  initialization) 

and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
compsel 


Info  :  TAE.Tae_Wpt .Event_Context_Ptr ;    --  panel  information 
Initialize_Panel  --  Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  ) ;    --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 

-- I  panel 
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EXCEPTIONS: 

TAE.UNINITIALIZED_PTR  is  raised  if  Collect ion_Read  not  initialized 
TAE.Tae_Co.NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
Collection  Read 


Create  Panel 


Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


Flags  sent  to  Wpt_NewPanel 


Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ) ; 


■-  Panel  origin  is  offset  from 
■-  this  X  Window.   Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

-- I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Info. Panel_Id. 

EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 

TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect  Panel 


Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


Relative_Window 

:  in  X_Windows .Window 

:=  X  Windows. Null  Window 


--  Panel  origin  is  offset  from 
--  this  X  Window.   Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

--I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
-- I    in  the  specif iec  Panel_State  and  stores  the  panel  Id  in 
--I    Info.Panel_Id. 
--I  If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 


249 


In  this  case,  Relative_Window  is  ignored. 

EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 

not  initialized 
TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 

created 
TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 

Panel  State  is  an  invalid  state 


Destroy_Panel 


■-  Subprogram  SPEC 


procedure  Destroy_Panel ; 


id 


PURPOSE: 

This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 

associated  panel  object  (not  the  target  and  view) . 

EXCEPTIONS: 

TAE.Tae_Wpt . BAD_PANEL_ID  is  raised  if  Inf o . Panel_Id  is  an  invalid 


NOTES : 

Info. Panel_Id  is  set  to  TAE .NULL_PANEL_ID,  and  should  not  referenced 
in  any  Wpt  call  until  it  is  created  again. 


D i spa tch_I tern 


--  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt .Event_Context_Ptr  );  --  event. 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 


-I  EXCEPTIONS: 

-I  Application-specific 


end  Panel_compsel ; 
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2.   PAN  COMPSEL  B.A 


***  TAE  Plus  Code  Generator  version  V5 . 1 
***  File        :  pan_compsel_b . a 

May  21  16:12:31  1992 

Dogan  Ozdemir 


***  Generated 
***  Revised  by 


Panel_compsel 


Package  BODY 


*  +  ****  +  **********************************•********•******  +  ********** 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Global, Text_IO; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel_mainmenu; 
with  Panel_viewpsdl ; 
with  Panel_select ; 

package  body  Panel_compsel  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event-generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
compsel 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 

An  item's  connection  information  changed 
For  the  panel  items: 
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I    compsel,  cancel,  view,  select, 


--ADDED 

comp  :  String ( 1 .. 80 ): =  (others=>'  '); 


Initialize_Panel  --  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 


begin  --  Initialize_Panel 

Info  :=  new  TAE . Tae_Wpt . Event_Context ; 

Info .Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Info . Collection,  "compsel_v",  Info. View); 

TAE.Tae_Co.Co_Find  ( Info .Collection,  "compsel_t",  Info .Target ) ; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( "Panel_compsel . Initialize_Panel :   " 

&  "Collection_Read  not  initialized."); 
raise; 

when  TAE.Tae_Co.NO_SUCH_MEMBER  => 

Text_IO . Put_Line  ( " Panel_compsel . Initialize_Panel :   " 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel ; 


Create_Panel  --  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X  Windows .Window 
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:=  X_Windows .Null_Window  )  is 

begin  --  Create_Panel 

if  Info.Panel_Id  =  Tae .Null_Panel_Id  then 
TAE.Tae_Wpt . Wpt_NewPanel 

(  Dummy  =>  "  "  , 

Data_Vm  =>  Info. Target, 
View_Vm  =>  Info. View, 

Relative_Window        =>  Relative_Window, 
User_Context  =>  Info, 

Flags  =>  Panel_State, 

Panel_Id  =>  Info . Panel_Id  ) ; 

else 

Text_IO . Put_Line  ("Panel  (compsel)  is  already  displayed, 
end  if; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_compsel .Create_Panel :   " 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE.TAE_FAIL  => 

Text_IO . Put_Line  ( " Panel_compsel .Create_Panel :   " 

&  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel ; 


Connect_Panel  --  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Re lat  i ve_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 


begin  --  Connect_Panel 

if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
Create  Panel 
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(  Relative_Window        =>  Relative_Window, 
Panel_State  =>  Panel_State  ) ; 

else 

TAE.Tae_Wpt . Wpt_SetPanelState  ( Info . Panel_Id,  Panel_State) ; 
end  i  f ; 

exception 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO . Put_Line  ( " Panel_compsel .Connect_Panel : 

Ec    "Invalid  panel  state."); 
raise; 

end  Connect_Panel ; 


Destroy_Panel  --  Subprogram  BODY 


procedure  Destroy_Panel  is 

begin  --  Destroy_Panel 

TAE.Tae_Wpt .Wpt_PanelErase ( Info. Panel_Id) ; 

exception 

when  TAE.Tae_Wpt . BAD_PANEL_ID  => 

Text_IO . Put_Line  ( " Panel_compsel . Destroy_Panel : 

&  " Info . Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE.Tae_Wpt.ERASE_NULL_PANEL  => 
--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
null; 

end  Destroy_Panel ; 

--  begin  EVENT  HANDLERS 


compsel_Event  --  Subprogram  SPEC  &  BODY 
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procedure  compsel_Event 

(  Info  :  in  TAE.Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

--I 

--I  NOTES:  Selects  the  component  from  the  list 

Value  :  array  CI -  - 1)  of  String  d . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  compsel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf  o  .  Parm_Ptr ,  1,  Valued)); 
else 

null; 
end  if; 
--ADDED 
compd.  .80)  :=Value(l)  (1.  .80)  ; 


--  End  default  generated  code 
end  compsel_Event ; 

cancel_Event  --  Subprogram  SPEC  &  BODY 


procedure  cancel_Event     , 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

--I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 
Q      :  Integer :=1; 

begin  --  cancel_Event 

--  Begin  default  generated  code 
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TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf  o  .  Parm_Ptr ,  1,  Valued 
else 

null; 
end  if; 
if  Query  then 
Query : =False; 
strlen ( Query _psdl, Q) ; 
system_call ( "rm  "&Query_psdl ( 1 . . Q) ) ; 
end  if; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 
Panel_mainmenu.Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 
--ADDED 

TAE.Tae_Wpt .Wpt_PanelReset ( Info . Pane l_Id) ; 
for  Clean  in  1 . . (num_of_comp)  loop 
for  ch  in  1..80  loop 

f ile_vec (Clean) .all (ch) : = '  '; 
end  loop; 
end  loop; 
comp ( 1 . . 5 ) : = " 


end  cancel_Event ; 


view_Event  --  Subprogram  SPEC  &  BODY 


procedure  view_Event 

(  Info  :  in  TAE .Tae_Wpt . Even t_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

--I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 
L,S    :  Integer :=1; 
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begin  --  view_Event 

--  Begin  default  generated  code 


TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf  o  .  Parm_Ptr,  1,  Valued)); 
end  if; 
--ADDED 
if  compd.  .5)  =  "      "  then 

TAE.Tae_Wpt . Wpt_PanelMessage ( inf o .panel_id, "NO  COMPONENT  IS 
SELECTED" ) ; 
else 

component  :=  comp; 
strlen (component , L) ; 
strlen ( library , S) ; 

system_call  (com£e"cv  "^library  ( 1 .  .  S)  &"  "^component  ( 1 .  .L)  &"  outpsdl 
outspec  outbody"); 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 
Panel_viewpsdl .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

end  i  f ; 

end  view_Event; 


select_Event  --  Subprogram  SPEC  &  BODY 


procedure  select_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 
--I 

--I  NOTES:  Selected  component  will  be  further  munipulated  if  this 
procedure 

--  I         is  invoked. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 
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begin  --  select_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf  o  .  Parm_Ptr ,  1,  Valued)); 
end  i  f ; 
--ADDED 
if  comp ( 1 . . 5 )  =  "      "  then 

TAE.Tae_Wpt .Wpt_PanelMessage(info.panel_id, "NO  COMPONENT  IS 
SELECTED" ) ; 
else 

component  :=  comp; 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 

Panel_select .Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 
--  End  generated  code  for  Connection 

end  i  f ; 

end  select_Event ; 

--  end  EVENT  HANDLERS 


Dispatch_Item  --  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

begin  --  Dispatch_Item 

if  TAE .Tae_Misc . s_equal  ("compsel",  User_Context_Ptr . Parm_Name)  then 
compsel_Event  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Misc .s_equal  ("cancel",  User_Context_Ptr . Parm_Name)  then 
cancel_Event  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Misc.s_equal  ("view",  User_Context_Ptr . Parm_Name)  then 
view_Event  (User_Context_Ptr ) ; 
elsif  TAE. Tae_Misc.s_equal  ("select",  User_Context_Ptr . Parm_Name)  then 
select_Event  (User_Context_Ptr ) ; 
end  i  f ; 

end  Dispatch_Item; 

end  Panel_compsel ; 


258 


M.     PANEL  VIEWPSDL  PACKAGE 


1.       PAN  VIEWPSDL  S.A 


***  TAE  Plus  Code  Generator  version  V5 . 1 


***  File 

***  Generated 

***  Revised  by 


pan_viewpsdl_s . a 
Jul  13  16:13:09  1992 
Dogan  Ozdemir 


******************************************************************* 


Panel_viewpsdl 


Package  SPEC 


******************************************************************* 


with  TAE; 

with  X_Windows ; 

package  Panel_viewpsdl  is 


PURPOSE: 

This  package  encapsulates  the  TAE  Plus  panel:   viewpsdl 

These  subprograms  enable  panel  initialization,  creation,  destruction, 

and  event  dispatching.   For  more  advanced  manipulation  of  the  panel 

using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 

It  includes  the  Target  and  View  (available  after  initialization) 

and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 

file. 

The  panel's  name  is  changed  (not  title) 
For  panel: 
viewpsdl 

Info  :  TAE .Tae_Wpt . Event_Context_Ptr ;    --  panel  information 


Initialize  Panel 


■-  Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  ) ;    --  resource  file 

--I  PURPOSE: 

-- I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 

--I  panel 
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--I  EXCEPTIONS: 

--I  TAE.UNINITIALIZED_PTR  is  raised  if  Collect ion_Read  not  initialized 

--I  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 

--I     Collection  Read 


Create  Panel 


•-  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED  ; 


Flags  sent  to  Wpt_NewPanel . 


Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ) ; 


Panel  origin  is  offset  from 
this  X  Window.  Null_Window 
-  uses  the  root  window. 


I  PURPOSE: 

I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Inf o . Panel_Id. 

EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 

TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect  Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ) ; 


--  Panel  origin  is  offset  from 
--  this  X  Window.   Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

•-I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 

in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 

Info. Panel_Id. 
If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 

In  this  case,  Relative_Window  is  ignored. 

EXCEPTIONS : 
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TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 

not  initialized 
TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 

created 
TAE.Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 

Panel_State  is  an  invalid  state 


Destroy_Panel 


Subprogram  SPEC 


procedure  Destroy_Panel ; 


id, 


PURPOSE: 

This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 

associated  panel  object  (not  the  target  and  view) . 

EXCEPTIONS : 

TAE.Tae_Wpt . BAD_PANEL_ID  is  raised  if  Inf o . Panel_Id  is  an  invalid 


NOTES : 

-I  Info.Panel_Id  is  set  to  TAE .NULL_PANEL_ID,  and  should  not  referenced 
--I  in  any  Wpt  call  until  it  is  created  again. 


Di spa tch_I tern 


Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt .Event_Context_Ptr  ) ;  --  event. 

--I  PURPOSE: 

--  I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 


--I  EXCEPTIONS: 

-- I  Application-specific 

end  Panel_viewpsdl ; 
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2.   PAN  V1EWPSDL  B.A 


TAE  Plus  Code  Generator  version  V5 . 1 


***  File 

***  Generated 

***  Revised  by 


pan_viewpsdl_b . a 
Jul  13  16:13:09  1992 
Dogan  Ozdemir 


******************************************************************* 

*     Panel_viewpsdl  --  Package  BODY 

* 

******************************************************************* 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Global, Text_IO; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel_compsel; 
with  Panel_viewspec ; 


package  body  Panel_viewpsdl  is 

NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
viewpsdl 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 

An  item's  connection  information  changed 
For  the  panel  items: 
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•-I    cancel,  viewspec 


Initialize_Panel  --  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 

begin  --  Initialize_Panel 

Info  : =  new  TAE .Tae_Wpt . Event_Context ; 

Info. Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Info .Collection,  " viewpsdl_v" ,  Info. View); 

TAE.Tae_Co.Co_Find  ( Info .Collection,  "viewpsdl_t " ,  Info .Target ) ; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_viewpsdl . Initialize_Panel : 

&  "Collection_Read  not  initialized."); 
raise; 

when  TAE . Tae_Co . NO_SUCH_MEMBER  => 

Text_IO. Put_Line  ( " Panel_viewpsdl . Initialize_Panel : 

8c    "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel ; 


Create_Panel  --  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X  Windows. Null  Window  )  is 


begin  --  Create_Panel 
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if  Info.Panel_Id  =  Tae .Null_Panel_Id  then 
TAE . Tae_Wpt . Wpt_NewPane 1 

(  Dummy  =>  " "  , 

Data_Vm  =>  Info. Target, 

View_Vm  =>  Info. View, 

Relative_Window        =>  Relative_Window, 
User_Context  =>  Info, 

Flags  =>  Panel_State, 

Panel_Id  =>  Info . Panel_Id  ) ; 

else 

Text_IO . Put_Line  ("Panel  (viewpsdl)  is  already  displayed, 
end  i  f ; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO. Put_Line  ( " Panel_viewpsdl .Create_Panel : 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE.TAE_FAIL  => 

Text_IO . Put_Line  ( " Panel_viewpsdl .Create_Panel :   " 

&  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel ; 


Connect_Panel  --  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 

Dummy : Boo 1 ean ; 

L     :  Integer :=1; 

label:  String (1. .80) :=(others=>'  '); 

begin  --  Connect_Panel 

if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

(  Relative  Window        =>  Relative  Window, 
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Panel_State  =>  Panel_State  ) ; 

else 

TAE.Tae_Wpt . Wpt_SetPanelState  ( Inf o . Panel_Id,  Panel_State ) ; 
end  if; 

--ADDED 

strlen (component , L) ; 

label ( 1 . . (L+5) ) : =component ( 1 . .L)&" .psdl" ; 

TAE.Tae_Vm.Vm_SetSt ring (Info. View, "psdl label" , 1, label (1 . . (L+5) ) , TAE.Tae_ 
Vm.P_UPDATE) ; 

TAE.Tae_Wpt . Wpt_ViewUpdate (Info. Panel_Id, "psdl label" , Info. View, "psdllabe 
1 " )  ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 

exception 

when  TAE.Tae_Wpt .BAD_STATE  => 

Text_IO . Put_Line  ( " Panel_viewpsdl .Connect_Panel : 

&  "Invalid  panel  state."); 
raise; 

end  Connect_Panel ; 


Destroy_Panel  --  Subprogram  BODY 

procedure  Destroy_Panel  is 

begin  --  Destroy_Panel 

TAE.Tae_Wpt .Wpt_PanelEra$e ( Info . Panel_Id) ; 

exception 

when  TAE.Tae_Wpt . BAD_PANEL_ID  => 

Text_IO . Put_Line  ( " Panel_viewpsdl .Destroy_Panel :   " 

Sc    "  Info .  Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE . Tae_Wpt . ERASE_NULL_PANEL  => 
--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed 
--  Trap  this  exception  and  do  nothing, 
null; 

end  Destroy_Panel; 
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--+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 


begin  EVENT  HANDLERS 


cancel_Event  --  Subprogram  SPEC  &  BODY 


procedure  cancel_Event 

(  Info  :  in  TAE .Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGS I ZE) ; 
Count  :  TAE.Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf o . Parm_Ptr ,  1,  Value(l)); 
end  if; 
--ADDED 

system_call ( "rm  outpsdl") 

system_call ( "rm  outspec") 

system_call ( " rm  outbody") 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 
Panel_compsel .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

end  cancel_Event ; 

viewspec_Event  --  Subprogram  SPEC  &  BODY 


procedure  viewspec_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
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--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

--I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE] 
Count  :  TAE.Taeint; 

begin  --  viewspec_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL    ( Info . Parm_Ptr ,     1,    Valued)  ); 
end    if; 

--  End  default  generated  code 
--  Begin  generated  code  for  Connection 

Panel_viewspec.Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 
--  End  generated  code  for  Connection 

end  viewspec_Event ; 
--  end  EVENT  HANDLERS 


Dispatch_Item  --  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE .Tae_Wpt . Event_Context_Ptr  )  is 


begin  --  Dispatch_Item 

if  TAE.Tae_Misc . s_equal  ("cancel",  User_Context_Ptr . Parm_Name)  then 

cancel_Event  (User_Context_Ptr ) ; 
elsif  TAE .Tae_Misc . s_equal  ("viewspec",  User_Context_Ptr . Parm_Name ) 
then 

viewspec_Event  (User_Context_Ptr ) ; 
end  if; 

end  Dispatch_Item; 

end  Panel_viewpsdl ; 
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N.      PANEL_VIEWSPEC  PACKAGE 

1.       PAN_V1EWSPEC_S.A 

--    ***    TAE    Plus    Code   Generator   version   V5 . 1 

--    ***    File  :    pan_viewspec_s .a 

--    ***    Generated       :    Jul    13    16:13:09    1992 

--    ***    Revised   by    :    Dogan   Ozdemir 

******************************************************************* 

* 

*     Panel_viewspec  --  Package  SPEC 
* 

******************************************************************* 

with  TAE; 

with  X_W i  ndows ; 

package  Panel_viewspec  is 

PURPOSE : 

This  package  encapsulates  the  TAE  Plus  panel:   viewspec 

These  subprograms  enable  panel  initialization,  creation,  destruction, 

and  event  dispatching.   For  more  advanced  manipulation  of  the  panel 

using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 

It  includes  the  Target  and  View  (available  after  initialization) 

and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
viewspec 

Info  :  TAE.Tae_Wpt . Event_Context_Ptr ;    --  panel  information 


Initialize_Panel  --  Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  ) ;    --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 

-- I  panel 
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--I  EXCEPTIONS: 

--I  TAE.UNINITIALIZED_PTR  is  raised  if  Collect ion_Read  not  initialized 

--I  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 

--I     Collection  Read 


Create  Panel 


--  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


Flags  sent  to  Wpt_NewPanel . 


Relative_Window 

:  in  X_Windows .Window 

:=  X  Windows. Null  Window 


Panel  origin  is  offset  from 
this  X  Window.  Null_Window 
-  uses  the  root  window. 


PURPOSE: 
This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Info . Panel_Id . 

EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 

TAE .TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect  Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt .Wpt_F lags 

:=  TAE.Tae_Wpt.WPT_PREFERRED; 


Relative_Window 

:  in  X_Windows .Window 

:=  X  Windows. Null  Window 


Panel  origin  is  offset  from 
this  X  Window.  Null_Window 
-  uses  the  root  window. 


PURPOSE: 
If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 

in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 

Info. Panel_Id. 
If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 

In  this  case,  Relative_Window  is  ignored. 

EXCEPTIONS: 
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TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 

not  initialized 
TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 

created 
TAE.Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 

Panel  State  is  an  invalid  state 


Destroy_Panel 


Subprogram  SPEC 


procedure  Destroy_Panel ; 


id. 


PURPOSE: 

This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 

associated  panel  object  (not  the  target  and  view). 

EXCEPTIONS : 

TAE.Tae_Wpt . BAD_PANEL_ID  is  raised  if  Inf o . Panel_Id  is  an  invalid 


NOTES : 

--I  Info. Panel_Id  is  set  to  TAE .NULL_PANEL_ID,  and  should  not  referenced 
-- I  in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


--  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt . Event_Context_Ptr  ) ;  --  event. 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 


--I  EXCEPTIONS: 

-- I  Application-specific 

end  Panel_viewspec; 
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2.       PAN  VIEWSPEC  B.A 


***  TAE  Plus  Code  Generator  version  V5 . 1 

***  File 

***  Generated 

***  Revised  by 


pan_viewspec_b . a 
Jul  13  16:13:09  1992 
Dogan  Ozdemir 


******************************************************************* 


Panel_viewspec 


Package  BODY 


******************************************************************* 


with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Text_I0, Global; 

--  One  "with"  statement  for  each  connected  panel 
with  Panel_viewpsdl ; 
with  Panel_viewbody ; 

package  body  Panel_viewspec  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
viewspec 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 

An  item's  connection  information  changed 
For  the  panel  items: 

cancel,  viewbody 
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Initialize_Panel  --  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 

begin  --  Initialize_Panel 

Info  :=  new  TAE . Tae_Wpt . Event_Context ; 

Info .Collection  :=  Collection_Read; 

TAE.Tae_Co . Co_Find  ( Info .Collection,  "viewspec_v" ,  Info. View); 

TAE.Tae_Co.Co_Find  ( Info . Collection,  "viewspec_t " ,  Info. Target; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_viewspec . Initialize_Panel :   " 

&  "Collection_Read  not  initialized."); 
raise; 

when  TAE . Tae_Co . NO_SUCH_MEMBER  => 

Text_IO. Put_Line  ( " Panel_viewspec . Initialize_Panel : 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel ; 


Create_Panel  --  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X  Windows. Null  Window  )  is 


begin  --  Create_Panel 

if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
TAE . Tae_Wp t . Wpt_NewPane 1 
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(  Dummy  =>  " " , 

Data_Vm  =  >  Info. Target, 

View_Vm  =>  Info. View, 

Relative_Window  =>  Relative_Window, 

User_Context  =>  Info, 

Flags  =>  Panel_State, 

Panel_Id  =  >  Info . Panel_Id  ); 

else 

Text_IO . Put_Line  ("Panel  (viewspec)  is  already  displayed."); 

end  if; 

exception 

when   TAE.UNINITTALIZED_PTR    =  > 

Text_IO . Put_Line  ( "Panel_viewspec .Create_Panel :   " 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE.TAE_FAIL  => 

Text_IO . Put_Line  ( " Panel_viewspec .Create_Panel :   " 

&  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel ; 


Connect_Panel  --  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window        , 
:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 

Dummy :  Boolean; 

L     :  Integer :=1; 

label:  String ( 1 .. 80 ):= (others=> '  '); 

begin  --  Connect_Panel 

if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

(  Relative_Window        =>  Relative_Window, 
Panel_State  =>  Panel_State  ) ; 

else 
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TAE.Tae_Wpt . Wpt_SetPanelState  ( Info . Panel_Id,  Panel_State) ; 
end  if; 

--ADDED 

strlen ( component , L) ; 

label (1 . . (L+5) ) : =component ( 1 . . L) &" . spec" ; 

TAE.Tae_Vm.Vm_SetString( Info. View, "spec label" , 1, label (1 . . (L+5) ) , TAE.Tae_ 
Vm . P_UPDATE ) ; 

TAE.Tae_Wpt .Wpt_ViewUpdate ( Info . Panel_Id, "speclabel" , Info. View, "speclabe 
1 "  )  ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 

exception 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO . Put_Line  ( " Panel_viewspec .Connect_Panel : 

&  "Invalid  panel  state."); 
raise; 

end  Connect_Panel ; 


Destroy_Panel  --  Subprogram  BODY 

procedure  Destroy_Panel  is 

begin  --  Destroy_Panel 

TAE.Tae_Wpt . Wpt_PanelErase ( Info. Panel_Id) ; 

exception 

when  TAE.Tae_Wpt.BAD_PANEL_ID  => 

Text_IO . Put_Line  ( " Panel_viewspec .Destroy_Panel : 

&  "Info. Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE . Tae_Wpt . ERASE_NULL_PANEL  => 
--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed, 
--  Trap  this  exception  and  do  nothing, 
null; 

end  Destroy_Panel ; 
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begin  EVENT  HANDLERS 


cancel_Event  --  Subprogram  SPEC  &  BODY 


procedure  cancel_Event 

(  Info  :  in  TAE .Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf .STRINGSIZE) 
Count  :  TAE.Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info. Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf  o  .  Parm_Ptr ,  1,  Valued)); 
end  if; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE .Tae_Wpt . WPT_INVISIBLE) ; 
Panel_viewpsdl .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

end  cancel_Event ; 


viewbody_Event  --  Subprogram  SPEC  &  BODY 


procedure  viewbody_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE.Tae_Taeconf .STRINGSIZE) ; 
Count  :  TAE.Taeint; 
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begin  --  viewbody_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf  o  .  Parm_Ptr ,  1,  Valued 
end  if; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Panel_viewbody .Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

end  viewbody_Event ; 

--  end  EVENT  HANDLERS 


Dispatch_Item  --  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

begin  --  Dispatch_Item     » 

if  TAE.Tae_Misc.s_equal  ("cancel",  User_Context_Ptr . Parm_Name)  then 

cancel_Event  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Misc . s_equal  ("viewbody",  User_Context_Ptr . Parm_Name) 
then 

viewbody_Event  (User_Context_Ptr ) ; 
end  if; 

end  Dispatch_Item; 

end  Panel_viewspec ; 


276 


O.     PANEL  VIEWBODY  PACKAGE 


1.       PAN  VIEWBODY  S.A 


***  TAE  Plus  Code  Generator  version  V5 . 1 

***  File        :  pan_viewbody_s .a 

Jul  13  16:13:09  1992 

Dogan  Ozdemir 
************•**********•*******•***+***•**********•**************** 


***  Generated 
***  Revised  by 


Panel_viewbody 


--  Package  SPEC 


*************  +  *******************  +  ***•«•***■*•*********  +  ■*■*•************■* 


with  TAE; 

with  X_Windows ; 

package  Panel_viewbody  is 


PURPOSE: 

This  package  encapsulates  the  TAE  Plus  panel:   viewbody 

These  subprograms  enable  panel  initialization,  creation,  destruction, 

and  event  dispatching.   For  more  advanced  manipulation  of  the  panel 

using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 

It  includes  the  Target  and  View  (available  after  initialization) 

and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
viewbody 


Info  :  TAE .Tae_Wpt . Event_Context_Ptr ;    --  panel  information 


Initialize  Panel 


--  Subprogram  SPEC 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae  Co .Collection  Ptr 


■-  TAE  Collection  read  from 
-  resource  file 


I  PURPOSE: 

I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 

I  panel 


-I 
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--I  EXCEPTIONS: 

--I  TAE.UNINITIALIZED_PTR  is  raised  if  Collect ion_Read  not  initialized 

--I  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 

--I     Collection  Read 


Create  Panel 


Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


Flags  sent  to  Wpt_NewPanel 


Relative_Window 

:  in  X_Windows .Window 

:=  X  Windows. Null  Window 


--  Panel  origin  is  offset  from 
--  this  X  Window.   Null_Window 
--  uses  the  root  window. 


I  PURPOSE: 

I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Inf o . Panel_Id. 

EXCEPTIONS: 

TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 

TAE .TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect  Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ); 


-  Panel  origin  is  offset  from 
■-  this  X  Window.   Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 
-- I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 

in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 

Info. Panel_Id. 
If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 

In  this  case,  Relative_Window  is  ignored. 

EXCEPTIONS: 
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TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 

not  initialized 
TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 

created 
TAE.Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 

Panel_State  is  an  invalid  state 


Destroy_Panel 


Subprogram  SPEC 


procedure  Destroy_Panel ; 


id. 


PURPOSE : 

This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 

associated  panel  object  (not  the  target  and  view). 

EXCEPTIONS : 

TAE . Tae_Wpt . BAD_PANEL_ID  is  raised  if  Inf o . Panel_Id  is  an  invalid 


NOTES : 

Info.Panel_Id  is  set  to  TAE .NULL_PANEL_ID,  and  should  not  referenced 
in  any  Wpt  call  until  it  is  created  again. 


D i spa tch_I tern 


■-  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt .Event_Context_Ptr  ) ;  --  event. 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 

--I 

--I  EXCEPTIONS: 

--I  Application-specific 


end  Panel_viewbody ; 
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2.       PANVIEWBODYB.A 

-  ***  TAE  Plus  Code  Generator  version  V5 . 1 
■-  ***  File        :  pan_viewbody_b . a 

Jul  13  16:13:09  1992 
Dogan  Ozdemir 


***  Generated 
***  Revised  by 


******************************************************************* 

* 

*     Panel_viewbody  --  Package  BODY 
* 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Text_IO, Global; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel_viewspec ; 

package  body  Panel_viewbody  is 

NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event-generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
viewbody 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 

An  item's  connection  information  changed 
For  the  panel  items: 
cancel 
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Initialize_Panel  --  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 

--I  NOTES:  (none) 

begin  --  Initialize_Panel 

Info  :=  new  TAE . Tae_Wpt .Event_Context ; 

Info .Collection  : =  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Info .Collection,  "viewbody_v" ,  Info. View) ; 

TAE.Tae_Co.Co_Find  ( Info .Collection,  " viewbody_t " ,  Info .Target ) ; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_viewbody . Initialize_Panel : 

&  "Collection_Read  not  initialized."); 
raise; 

when  TAE . Tae_Co . NO_SUCH_MEMBER  => 

Text_IO. Put_Line  ( " Panel_viewbody . Initialize_Panel : 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel ; 


Create_Panel  --  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X  Windows. Null  Window  )  is 


begin  --  Create_Panel 
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if  Info.Panel_Id  =  Tae .Null_Panel_Id  then 
TAE . Tae_Wpt . Wpt_NewPane 1 

(  Dummy  =>  " " , 

Data_Vm  =>  Info. Target, 

View_Vm  =>  Info. View, 

Relative_Window  =>  Relative_Window, 

User_Context  =>  Info, 

Flags  =>  Panel_State, 

Panel_Id  =>  Inf o . Panel_Id  ); 
else 

Text_IO . Put_Line  ("Panel  (viewbody)  is  already  displayed.") 
end  if; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO. Put_Line  ( " Panel_viewbody .Create_Panel : 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE.TAE_FAIL  => 

Text_IO. Put_Line  ( " Panel_viewbody .Create_Panel : 

&  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel ; 


Connect_Panel  --  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Re lat  i ve_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 

Dummy : Boolean ; 

L     :  Integer :=1; 

label:  String ( 1 .. 80) := (others=> '  '); 

begin  --  Connect_Panel 

if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

(  Relative_Window        =>  Relative_Window, 
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Panel_State  =>  Panel_State  ) ; 

else 

TAE.Tae_Wpt . Wpt_SetPanelState  (Info. Pane l_Id#  Panel_State) ; 
end  if; 
--ADDED 

strlen (component ,  L)  ; 
label (1 . . (L+5) ) : =component (1 . .L)&" .body" ; 

TAE.Tae_Vm.Vm_SetString( Info. View, "body label" , 1, label ( 1 . . (L+5) ) ,TAE.Tae_ 
Vm.P_UPDATE) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, "bodylabel " , Info .View, "bodylabe 
1 " )  ; 

Dummy: =TAE.Tae_Wpt .Wpt_Pending; 

exception 

when  TAE.Tae_Wpt .BAD_STATE  => 

Text_IO . Put_Line  ( " Panel_viewbody .Connect_Panel :   " 

&  "Invalid  panel  state."); 
raise; 

end  Connect_Panel ; 


Destroy_Panel  --  Subprogram  BODY 


procedure  Destroy_Panel  is 

begin  --  Destroy_Panel 

TAE.Tae_Wpt .Wpt_PanelErase ( Info . Panel_Id) ; 

exception 

when  TAE.Tae_Wpt . BAD_PANEL_ID  => 

Text_IO. Put_Line  ( " Panel_viewbody .Destroy_Panel : 

&  " Info. Panel_Id  is  an  invalid  id."); 
raise ; 

when  TAE . Tae_Wpt . ERASE_NULL_PANEL  => 
--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
null; 

end  Destroy_Panel ; 
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begin  EVENT  HANDLERS 

cancel_Event  --  Subprogram  SPEC  &  BODY 


procedure  cancel_Event 

(  Info  :  in  TAE.Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGS I ZE) ; 
Count  :  TAE.Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 

if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf o . Parm_Ptr ,  1,  Valued)); 

end  if; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 

Panel_viewspec.Connect_Panel  (TAE.Tae_Wpt . WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 
end  cancel_Event ; 

--  end  EVENT  HANDLERS 


Dispatch_Item  --  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE .Tae_Wpt .Event_Context_Ptr  )  is 


begin  --  Dispatch_Item 

if  TAE.Tae_Misc.s_equal  ("cancel",  User_Context_Ptr . Parm_Name)  then 

cancel_Event  (User_Context_Ptr ) ; 
end  if; 

end  Dispatch_Item; 

end  Panel_viewbody ; 
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P.      PANEL  SELECT  PACKAGE 


1.       PAN  SELECT  S.A 


***  TAE  Plus  Code  Generator  version  V5 . 1 


***  File 

***  Generated 

***  Revised  by 


pan_select_s . a 

Aug  12  11:50:32  1992 

Dogan  Ozdemir 
******************************************************************* 


Panel  select 


Package  SPEC 


******************************************************************* 


with  TAE; 

with  X_Windows ; 

package  Panel_select  is 


PURPOSE: 

This  package  encapsulates  the  TAE  Plus  panel:   select 

These  subprograms  enable  panel  initialization,  creation,  destruction, 

and  event  dispatching.   For  more  advanced  manipulation  of  the  panel 

using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 

It  includes  the  Target  and  View  (available  after  initialization) 

and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
select 


Info  :  TAE.Tae_Wpt . Event_Context_Ptr , 


panel  information 


Initialize  Panel 


■-  Subprogram  SPEC 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae  Co .Collection  Ptr 


--  TAE  Collection  read  from 
--  resource  file 


I  PURPOSE: 

I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 

I  panel 
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EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is  raised  if  Collect ion_Read  not  initialized 
TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
Collection  Read 


Create  Panel 


--  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE. Ta e_Wpt .Wpt_F lags 

:=  TAE.Tae_Wpt.WPT_PREFERRED; 


Flags  sent  to  Wpt_NewPanel 


Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ); 


Panel  origin  is  offset  from 
this  X  Window.   Null_Window 
■-  uses  the  root  window. 


I  PURPOSE: 

I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Info . Panel_Id. 

EXCEPTIONS: 

TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 

TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect  Panel 


Subprogram  SPEC 


procedure  Connect_Panel 

(  Panel_State  , 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ) ; 


Panel  origin  is  offset  from 
this  X  Window.  Null_Window 
-  uses  the  root  window. 


--I  PURPOSE: 
--I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 

in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 

Info. Panel_Id. 
If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 

In  this  case,  Relative_Window  is  ignored. 
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EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 

not  initialized 
TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 

created 
TAE.Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 

Panel_State  is  an  invalid  state 


Destroy_Panel 


--  Subprogram  SPEC 


procedure  Destroy_Panel ; 


id. 


PURPOSE: 

This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 

associated  panel  object  (not  the  target  and  view) . 

EXCEPTIONS : 

TAE.Tae_Wpt . BAD_PANEL_ID  is  raised  if  Info . Panel_Id  is  an  invalid 


NOTES : 

Info.Panel_Id  is  set  to  TAE .NULL_PANEL_ID,  and  should  not  referenced 
I  in  any  Wpt  call  until  it  is  created  again. 


D i spa tch_I tern 


■-  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt . Event_Context_Ptr  ) ;  --  event. 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 


--I  EXCEPTIONS: 

-- I  Application-specific 

end  Panel_select ; 


287 


2.   PANSELECTB.A 

__  ***  TAE  p]_us  code  Generator  version  V5 . 1 

--  ***  File:         pan_select_b . a 

--  ***  Generated:    Aug  12  11:50:32  1992 

******************************************************************* 

* 

*     Panel_select  --  Package  BODY 

* 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Global, Text_IO; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel_cdelwarn; 
with  Panel_savecomp; 
with  Panel_compsel ; 
with  Panel_integrt ; 

package  body  Panel_select  is 

NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event-generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
select 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 

An  item's  connection  information  changed 
For  the  panel  items: 
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delete,  save,  print,  integrate, 

cancel,  help 


Initialize_Panel  --  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 

begin  --  Initialize_Panel 

Info  :=  new  TAE.Tae_Wpt .Event_Context ; 

Info. Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Info .Collection,  "select_v",  Info. View); 

TAE.Tae_Co.Co_Find  ( Info .Collection,  "select_t",  Info. Target) 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO.Put_Line  ( " Panel_select . Initialize_Panel : 

&  "Collection_Read  not  initialized."); 
raise; 

when  TAE.Tae_Co.NO_SUCH_MEMBER  => 

Text_IO. Put_Line  ( " Panel_select . Initialize_Panel : 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel ; 


Create_Panel  --  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 


begin  --  Create_Panel 
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if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
TAE . Tae_Wpt . Wpt_NewPane 1 

(  Dummy  =>  " " , 

Data_Vm  =>  Info. Target, 

View_Vm  ->    Info. View, 

Relative_Window  =>  Relative_Window, 

User_Context  =>  Info, 

Flags  =>  Panel_State, 

Panel_Id  =>  Inf o . Panel_Id  ) ; 
else 

Text_IO . Put_Line  ("Panel  (select)  is  already  displayed.") 
end  i  f ; 

exception 

when  TAE.UNINITTALIZED_PTR  => 

Text_IO. Put_Line  ( " Panel_select .Create_Panel : 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE.TAE_FAIL  => 

Text_IO . Put_Line  ( " Panel_select .Create_Panel : 

&  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel ; 


Connect_Panel  --  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt.Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X  Windows. Null  Window  )  is 


Dummy 

L 

label 


Boolean; 

Integer : =1; 

String  (1. .80)  :  =  (others  =  > 


begin  --  Connect_Panel 

if  Info. Panel  Id  =  Tae. Null  Panel  Id  then 
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Create_Panel 

(  Relative_Window       =  >  Relative_Window, 
Panel_State  =  >  Panel_State  ) ; 

else 

TAE.Tae_Wpt . Wpt_SetPanelState  ( Inf o . Panel_Id,  Panel_State) ; 
end  i  f ; 

--ADDED 

strlen (component , L) ; 

label ( 1 . . L) : =component ( 1 . . L) ; 


TAE.Tae_Vm.Vm_SetString( Info. View, "label" , 1, label (1 . .L) ,TAE.Tae_Vm. P_UPD 
ATE)  ; 

TAE.Tae_Wpt . Wpt_ViewUpdate ( Info. Pane l_Id, "label" , Info. View, "label" ) ; 
Dummy: =TAE.Tae_Wpt . Wpt_Pending ; 

exception 

when  TAE.Tae_Wpt . BAD_STATE  => 

Text_IO. Put_Line  ( " Panel_select . Connect_Panel : 

&  "Invalid  panel  state."); 
raise; 


end  Connect_Panel ; 


Destroy_Panel  --  Subprogram  BODY 


procedure  Destroy_Panel  is 

begin  --  Destroy_Panel 

TAE.Tae_Wpt . Wpt_PanelErase (Info. Panel_Id) ; 

exception 

when  TAE.Tae_Wpt.BAD_PANEL_ID  => 

Text_IO. Put_Line  ( " Panel_select .Destroy_Panel : 

&  " Info. Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE . Tae_Wpt . ERASE_NULL_PANEL  => 
--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
null  ; 
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end  Destroy_Panel  ; 

--  begin  EVENT  HANDLERS 

delete_Event  --  Subprogram  SPEC  &  BODY 


procedure  delete_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  delete_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info. Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info  .  Parm_Ptr ,  1,  Valued)); 
end  i  f ; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 
Panel_cdelwarn.Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

end  delete_Event ; 


save_Event  --  Subprogram  SPEC  &  BODY 


procedure  save_Event 

(  Info  :  in  TAE.Tae_Wpt . Event_Context_Ptr  )  is 
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--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

L, I, C  :  Integer: =1 ; 

D      :  Integer :=0; 

ls_file   :file_type; 
f ile_name : String ( 1 .. 7 )  :=  "ls_file"; 

current   :String  (1..80):=  (others  =  >'  '); 

number    : integer : =1 ; 

Dummy     : Boo 1 ean ; 

begin  --  save_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf  o  .  Parm_Ptr ,  1,  Valued)); 
end  i  f ; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

--ADDED 

strlen (path, D) ; 

Directory (1 . . D) :=path(l . . D) ; 

loop 

if  Directory (I)  =  '/'  then 

cur r en t_di rectory (cur_dir_index) ( 1 . . C+l ) : =current ( 1 . . C- 
1 )  &  "  /  "  ; 

cur_dir_index : =cur_dir_index+ 1 ; 
C:=l; 
else 

current (C) : =Directory ( I ) ; 
C:=C+1; 
end  if; 
I:=I+1; 
if  I=D+1  then  exit; 
end  if; 
end  loop; 
cur rent_di rectory (cur_dir_index) ( 1 . .C+l ) : =current ( 1 . . C-l ) &" /  " 
if  D>27  then 

directory _array  :=  Directory ( (D-26) . .D) ; 
else 

directory _array  :=  Directory ( 1 .. 27 ) ; 
end  i  f ; 
system_call  (  "Is  -F  "ScDirectory  ( 1 .  .D)  &"  >  "&"  ls_f  ile"  )  ; 
list_directory (ls_f ile, f ile_name, f ile_vec, number) ; 
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strlen (component , L) ; 

TAE . Tae_Vm. Vm_SetString ( Panel_savecomp . Info .View, " compname " , 1 , component ( 
1 . . L) , TAE . Tae_Vm . P_UPDATE ) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate ( Panel_savecomp . Inf o . Panel_Id, "compname" , Panel 
_savecomp . Info .View, "compname") ; 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Panel_savecomp . Info . Panel_Id, "direc 
tory" , taeint (number) , f ile_vec) ; 

TAE . Tae_Vm. Vm_SetString ( Panel_savecomp . Inf o .View, "directory label " , 1 , dire 
ctory_array , TAE . Tae_Vm . P_UPDATE ) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Panel_savecomp . Info . Panel_Id, "directorylabel " 
, Panel_savecomp . Info .View, "directorylabel" ) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 

system_call ( "rm  ls_file"); 
system_call ( "rm  directory_f ile" ) ; 

Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 
Panel_savecomp.Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

end  save_Event ; 


print_Event  --  Subprogram  SPEC  &  BODY 


procedure  print_Event 

(  Info  :  in  TAE .Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf .STRINGS I ZE) ; 
Count  :  TAE.Taeint; 

--ADDED 

J, P: Integer :=1; 


begin  --  print_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr,  Count); 
if  Count  >  0  then 
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TAE.Tae_Vm.Vm_Extract_SVAL  ( Info . Parm_Ptr ,  1,  Valued)  ); 
end  if; 

--  End  default  generated  code 
strlen (component , P) ; 
strlen ( library , J) ; 

sy s t em_ca 1 1 ( com& " cv  "& library ( 1 .  . J) &"  "kcomponent ( 1 .  . P) &"  outpsdl 
outspec  outbody" ) ; 

if  TAE.Tae_Misc.s_equal  ( Value ( 1 )," PSDL" )  then 
system_call ( " lpr  outpsdl"); 

TAE.Tae_Wpt . Wpt_PanelMessage (info. panel_id, "SPOOLED  TO  DEFAULT 
PRINTER") ; 

elsif  TAE.Tae_Misc.s_equal  (Valued),  "Spec")  then 
system_call ( " lpr  outspec") ; 

TAE.Tae_Wpt . Wpt_PanelMessage ( info. panel_id, "SPOOLED  TO  DEFAULT 
PRINTER" ) ; 

elsif  TAE.Tae_Misc .s_equal  (Value (1),  "Body")  then 
system_call ( "lpr  outbody" ) ; 

TAE.Tae_Wpt .Wpt_PanelMessage (info. panel_id, "SPOOLED  TO  DEFAULT 
PRINTER") ; 

end  if; 

system_call ( "rm  outpsdl") 
system_call ( "rm  outspec") 
system_call ( "rm  outbody") 

end  print_Event; 


integrate_Event 


--  Subprogram  SPEC  &  BODY 


procedure  integrate_Event 

(  Info  :  in  TAE.Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE; 
Count  :  TAE.Taeint; 

L,S,Q  :  Integer:=l; 

teststring:  String ( 1 . .7 ): =  (others=>'  '); 

genfile   :  File_type; 

begin  --  integrate_Event 

--  Begin  default  generated  code 
TAE.Tae_Vm.Vm_Extract_Count  (Inf o . Parm_Ptr ,  Count); 
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if    Count    >    0    then 

TAE.Tae_Vm.Vm_Extract_SVAL    ( Inf o . Parm_Ptr ,     1,    Valued)  ); 
end    if; 
--ADDED 

strlen (component ,  L)  ; 
strlen ( library , S) ; 
strlen (Query_psdl , Q) ; 

system_call (com&"cv  "Sdibrary  ( 1 .  .  S)  &"  " ^component ( 1 . . L) &" 
retrieved_psdl  retrieved_spec  retrieved_body " ) ; 
if  Query  then 

system_call (parse& "main  retrieved_psdl  "&Query_psdl ( 1 . .Q) ) ; 
else 

system_call  (parseSc  "parse  retrieved_psdl "  )  ; 
end  if; 

open (genf ile,mode=>in_f ile, name=>" gen file" ) ; 

get (genf ile, teststring) ; 

close (genf ile) ; 

if  teststring ( 1 .. 7 )  =  "generic"  then 

system_call ( "cp  sof tbase_txt .gen  message"); 
else 

system_call ( "cp  sof tbase_txt . nongen  message"); 
end  if; 

for  erase  in  1..7  loop 
teststring (erase) : =  '  '; 
end  loop; 
system_call ( "rm  genfile"); 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 
Panel_integrt .Connect_Panel  (TAE.Tae_Wpt . WPT_PREFERRED) ; 

--  End  generated  code  for  Connection 

end  integrate_Event ; 


cancel_Event  --  Subprogram  SPEC  &  BODY 


procedure  cancel_Event 

(  Info  :  in  TAE.Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 
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--I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . . TAE .Tae_Taeconf . STRINGSIZE; 
Count  :  TAE.Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info . Parm_Ptr ,  1,  Value (1)); 
end  if; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE .Tae_Wpt . WPT_INVISIBLE) ; 
Panel_compsel .Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 
--  End  generated  code  for  Connection 
end  cancel_Event ; 

--  end  EVENT  HANDLERS 


Dispatch_Item  --  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE .Tae_Wpt .Event_Context_Ptr  )  is 


begin  --  Dispatch_Item 

if  TAE.Tae_Misc.s_equal  ("delete",  User_Context_Ptr . Parm_Name)  then 

delete_Event  (User_Context_Ptr ) ; 
elsif  TAE .Tae_Misc . s_equal  ("save",  User_Context_Ptr . Parm_Name)  then 

save_Event  (User_Context_Ptr ) ; 
elsif  TAE .Tae_Misc . s_equal  ("print",  User_Context_Ptr . Parm_Name)  then 

print_Event  (User_Context_Ptr ) ; 
elsif  TAE .Tae_Misc . s_equal  ("integrate",  User_Context_Ptr . Parm_Name) 
then 

integrate_Event  (User_Context_Ptr ) ; 
elsif  TAE. Tae_Misc . s_equal  ("cancel",  User_Context_Ptr . Parm_Name )  then 
cancel_Event  (User_Context_Ptr ) ; 
end  if; 

end  Dispatch_Item; 

end  Panel_select ; 


297 


Q.     PANEL_SAVECOMP  PACKAGE 


1.   PAN  SAVECOMP  S.A 


***  TAE  Plus  Code  Generator  version  V5 . 1 


***  File 

***  Generated 

***  Revised  by 


pan_savecomp_s . a 

Aug  12  11:50:32  1992 

Dogan  Ozdemir 
******************************************************************* 


*     Panel_savecomp  --  Package  SPEC 

* 

****************************************************************** 

with  TAE; 

with  X_Windows; 

package  Panel_savecomp  is 

PURPOSE: 

This  package  encapsulates  the  TAE  Plus  panel:   savecomp 

These  subprograms  enable  panel  initialization,  creation,  destruction, 

and  event  dispatching.   For  more  advanced  manipulation  of  the  panel 

using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 

It  includes  the  Target  and  View  (available  after  initialization) 

and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
savecomp 

Info  :  TAE .Tae_Wpt . Event_Context_Ptr ;    --  panel  information 


Initialize_Panel  --  Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  ) ;    --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 

-- I  panel 
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--I  EXCEPTIONS: 

--I  TAE.UNINITIALIZED_PTR  is  raised  if  Collect ion_Read  not  initialized 

--I  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 

--I     Collection  Read 


Create  Panel 


Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


Flags  sent  to  Wpt_NewPanel 


Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  ; 


-  Panel  origin  is  offset  from 

-  this  X  Window.   Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

-  I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Info . Panel_Id. 

EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 

TAE .TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect  Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


Relative_Window 

:  in  X_Windows .Window 

:=  X  Windows. Null  Window 


--  Panel  origin  is  offset  from 
--  this  X  Window.   Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 
-  I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 

in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 

Info. Panel_Id. 
If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 

In  this  case,  Relative_Window  is  ignored. 

EXCEPTIONS : 
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TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 

not  initialized 
TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 

created 
TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 

Panel  State  is  an  invalid  state 


Destroy_Panel 


Subprogram  SPEC 


procedure  Destroy_Panel ; 


id. 


PURPOSE: 

This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 

associated  panel  object  (not  the  target  and  view). 

EXCEPTIONS : 

TAE.Tae_Wpt . BAD_PANEL_ID  is  raised  if  Info . Panel_Id  is  an  invalid 


NOTES : 

I  Info. Panel_Id  is  set  to  TAE .NULL_PANEL_ID,  and  should  not  referenced 
I  in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt .Event_Context_Ptr  ) ;  --  event. 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 


--I  EXCEPTIONS: 

--I  Application-specific 

end  Panel_savecomp; 
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2.       PAN  SAVECOMPB.A 

***  TAE  Plus  Code  Generator  version  V5 . 1 
***  File:         pan_savecomp_b . a 
***  Generated:    Aug  12  11:50:32  1992 
********+****+***********++*+****+***+*++**+*+****+****+******++■ 


Pane l_savecomp 


Package  BODY 


******************************************************************* 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Global, Text_IO; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel_select ; 

package  body  Panel_savecomp  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
savecomp 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 

An  item's  connection  information  changed 
For  the  panel  items: 

directory label ,   cancel,  ok,  compname, 

directory 
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--ADDED 

selected  :String  (1..80):=  (others=>'  '); 

ls_file   :file_type; 

file_name : String ( 1 .  .7 )  :=  "ls_file"; 

number    : integer :=1; 


Initialize_Panel  --  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 

begin  --  Initialize_Panel 

Info  :=  new  TAE . Tae_Wpt . Event_Context ; 

Info .Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Info .Collection,  "savecomp_v" ,  Info. View); 

TAE.Tae_Co.Co_Find  ( Info . Collection,  "savecomp_t " ,  Info .Target ) ; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_savecomp . Initialize_Panel :   " 

&  "Collection_Read  not  initialized."); 
raise; 

when  TAE . Tae_Co . NO_SUCH_MEMBER  => 

Text_IO . Put_Line  ( " Panel_savecomp . Initialize_Panel : 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel ; 


Create_Panel  --  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative  Window 
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in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 


begin  --  Create_Panel 

if  Info.Panel_Id  =  Tae .Null_Panel_Id  then 
TAE . Tae_Wpt . Wpt_NewPanel 

(  Dummy  =>  " " , 

Data_Vm  =>  Info. Target, 

View_Vm  =>  Info. View, 

Relative_Window  =>  Relative_Window, 

User_Context  =  >  Info, 

Flags  =>  Panel_State, 

Panel_Id  =>  Inf o . Panel_Id  ) ; 
else 

Text_IO . Put_Line  ("Panel  (savecomp)  is  already  displayed.") 
end  if; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_savecomp .Create_Panel : 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE . TAE_FAIL  => 

Text_IO . Put_Line  ( "Panel_savecomp .Create_Panel : 

&  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel ; 


Connect_Panel  --  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X  Windows. Null  Window  )  is 


begin  --  Connect_Panel 
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if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

(  Relative_Window        =>  Relative_Window, 
Panel_State  =>  Panel_State  ) ; 

else 

TAE.Tae_Wpt . Wpt_SetPanelState  ( Inf o . Panel_Id,  Panel_State) ; 
end  if; 

exception 

when  TAE . Tae_Wpt . BAD_S TATE  =  > 

Text_IO . Put_Line  ( " Panel_savecomp .Connect_Panel :   " 

&  "Invalid  panel  state."); 
raise ; 

end  Connect_Panel; 


Destroy_Panel  --  Subprogram  BODY 

procedure  Destroy_Panel  is 

--I  NOTES:  (none) 

begin  --  Destroy_Panel 

TAE.Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 

exception 

when  TAE.Tae_Wpt.BAD_PANEL_ID  => 

Text_IO . Put_Line  ( " Panel_savecomp .Destroy_Panel :   " 

&  " Info. Panel_Id  is  an  invalid  id."); 
raise ; 

when  TAE . Tae_Wpt . ERASE_NULL_PANEL  => 
--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
null; 

end  Destroy_Panel; 


begin  EVENT  HANDLERS 


304 


cancel_Event  --  Subprogram  SPEC  &  BODY 


procedure  cancel_Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taemt; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf o. Parm_Ptr ,  1,  Value (1)); 
end  if; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 
Panel_select .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

--ADDED 

TAE.Tae_Wpt . Wpt_PanelReset ( Info . Panel_Id) ; 

for  J  in  1 . . 80  loop 
Directory (J) :=' 
end  loop;  > 

for  K  in  1 . .cur_dir_index  loop 
for  L  in  1 .  .  80  loop 

current_directory (K) (L) :='  ' ; 
end  loop; 
end  loop ; 
for  A  in  1..27  loop 

directory _array (A) := '  '; 
end  loop; 
cur_dir_index: =1 ; 

end  cancel_Event ; 
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ok_Event  --  Subprogram  SPEC  &  BODY 


procedure  ok_Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

--I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

--ADDED 

N,K, J, P: Integer :=1; 

begin  --  ok_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf o . Parm_Ptr ,  1,  Valued)); 
end  i  f ; 
--ADDED 

strlen (selected, N) ; 

strlen (Directory , K) ; 

strlen ( library , J) ; 

strlen (component , P) ; 

system_call  (com&"cv  "Sdibrary  (1 .  .  J)  &"  "^component  ( 1 .  .  P)  &"  outpsdl 
outspec  out body"); 

system_call  (  "cp  outpsdl  "ScDirectory  (1 .  .K)  &"  / 
" ^component ( 1 . . P ) & " . psdl " ) ;  ' 

system_call ( "cp  outspec  "ScDirectory (1 . .K) &" / 
"  Sccomponent  ( 1 .  .  P )  & "  .  spec  .  a "  )  ; 

system_call  ( "cp  outbody  "ScDirectory  ( 1 .  .K)  &"  / 
" ^component ( 1 . . P ) & " . body . a " ) ; 

system_call ( "rm  outpsdl") 

system_call ( "rm  outspec") 

system_call ( "rm  outbody") 


--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 
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Panel_select .Connect_Panel  (TAE .Tae_Wpt . WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

--ADDED 

TAE.Tae_Wpt . Wpt_PanelReset ( Info . Panel_Id) ; 

for  X  in  1 . .80  loop 
Directory (X) :=' 
end  loop; 

for  Y  in  1 . . cur_dir_index  loop 
for  Z  in  1 . .80  loop 

current_directory ( Y) (Z) :='  '  ; 
end  loop; 
end  loop; 
for  AA  in  1..27  loop 

directory _array (AA) :=  '  ' ; 
end  loop; 
cur_dir_index: =1 ; 

end  ok_Event ; 


directory_Event  --  Subprogram  SPEC  &  BODY 


procedure  directory _Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

—  I  EVENT  HANDLER.   Insert  application  specific  information. 

--I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) 
Count  :  TAE.Taeint; 

--ADDED 

N,M,K,S  :  integer :=1; 

Dummy : Boolean; 

selected_vec:s_vector (1 . . 1) :=  (others=>  new  STRING ( 1 .. 80 )) ; 

begin  --  directory _Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf o . Parm_Ptr ,  1,  Value (1)); 
end  if; 
--ADDED 
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selected: =Value(l) (1.  .80)  ; 
parse_line (selected) ; 
strlen (selected, N) ; 
strlen (Directory , M) ; 
if  Is_a_directory  then 

K:=N+M; 

Directory  (1 .  .K)  :=Directory  ( 1 .  .M)  &"  /  "£=selected  ( 1 .  .  (N-l)  )  ; 

if    K>27    then 

directory _array  :=  Directory ( (K-26) . .K) ; 
else 

directory _array  :=  Directory ( 1 .. 27 ) ; 
end  i  f ; 

TAE . Tae_Vm. Vm_SetString ( Info .View, "directory label" , 1 , di rectory _array , TAE 
. Tae_Vm . P_UPDATE ) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, "directorylabel " , Info .View, "dir 
ectory label " ) ; 

system_call ( "Is  -F  "&Directory ( 1 . .K) &"  >  "&" ls_f ile" ) ; 
list_di rectory ( ls_f ile, f ile_name, f ile_vec, number) ; 

TAE.Tae_Wpt . Wpt_SetStringConstraints (Info. Panel_Id, "directory" , taeint (nu 
mber) , f ile_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 

cur_dir_index: =cur_dir_index+l ; 

Current_directory (cur_dir_index) (1. .N) : =selected ( 1 . .N) ; 

for  node  in  (N+l) . .80  loop 

Current_directory (cur_dir_index) (node) :='  ' ; 
end  loop; 

system_call ( "rm  ls_file"); 

Is_a_directory : =FALSE ; 

elsif  Upper_directory  then 

strlen (Current_directory (cur_dir_index) , S) ; 
for  drct  in  (M-S+l)..8,0  loop 
Directory (drct) := '  ' ; 
end  loop; 

if  (M-S)>27  then 

directory _array  :=  Directory (( (M-S) -26 ).. (M-S) ) ; 
else 

directory _array  :=  Directory ( 1 .. 27 ) ; 
end  if; 

TAE.Tae_Vm.Vm_SetString( Info. View, "directorylabel" , 1, directory _array,  TAE 
. Tae_Vm . P_UPDATE ) ; 

TAE.Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, "directorylabel" , Info. View, "dir 
ectorylabel " ) ; 
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cur_dir_index : =cur_dir_index-l ; 

system_call ( "Is  -F  "&Directory ( 1 . . (M-S) ) &"  >  "&" ls_f ile" J ; 

1  is t_di rectory ( ls_f ile, f ile_name, f ile_vec, number)  ; 

TAE . Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, "directory" , taeint (nu 
mber) , f ile_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 

system_call ( "rm  ls_file"); 

Upper_directory : =FALSE ; 

else   --A  file  name  is  selected 

TAE. Tae_Wpt .Wpt_PanelMessage ( info. panel_id, "SELECTION  IS  NOT  A 
DIRECTORY") ; 
end  if; 


--  End  default  generated  code 
end  directory _Event ; 

--  end  EVENT  HANDLERS 

Dispatch_Item  --  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE .Tae_Wpt .Event_Context_Ptr  )  is 


begin  --  Dispatch_Item 

if  TAE.Tae_Misc.s_equal  ("cancel",  User_Context_Ptr . Parm_Name)  then 

cancel_Event  (User_Context_Ptr) ; 
elsif  TAE.Tae_Misc . s_equal  ("ok",  User_Context_Ptr . Parm_Name)  then 

ok_Event  (User_Context_Ptr ) ; 
elsif  TAE .Tae_Misc . s_equal  ("directory",  User_Context_Ptr . Parm_Name) 
then 

directory _Event  (User_Context_Ptr ) ; 
end  if; 

end  Dispatch_Item; 

end  Panel_savecomp; 
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R.      PANEL  CDEL WARN  PACKAGE 


1.       PAN  CDELWARN  S.A 


•-    ***    TAE    Plus    Code   Generator   version   V5 . 1 


***    File 

***   Generated 

***    Revised   by 


pan_cdelwarn_s .a 

Aug    12    11:50:32    1992 

Dogan  Ozdemir 
******************************************************************* 


Panel  cdelwarn 


Package  SPEC 


******************************************************************* 


with  TAE; 

with  X_Windows; 

package  Panel_cdelwarn  is 


PURPOSE: 

This  package  encapsulates  the  TAE  Plus  panel:   cdelwarn 

These  subprograms  enable  panel  initialization,  creation,  destruction, 

and  event  dispatching.   For  more  advanced  manipulation  of  the  panel 

using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 

It  includes  the  Target  and  View  (available  after  initialization) 

and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel : 
cdelwarn 


Info  :  TAE.Tae_Wpt . Event_Context_Ptr ; 


panel  information 


Initialize  Panel 


Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  ) ;    --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 

-- I  panel 
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--I  EXCEPTIONS: 

--I  TAE.UNINITIALIZED_PTR  is  raised  if  Collect ion_Read  not  initialized 

--I  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 

-- I     Collection_Read 


Create  Panel 


Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

:=  TAE.Tae_Wpt . WPT_PREFERRED; 


--  Flags  sent  to  Wpt_NewPanel . 


Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  ; 


--  Panel  origin  is  offset  from 
--  this  X  Window.   Null_Window 
--  uses  the  root  window. 


PURPOSE: 
This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Inf o . Panel_Id . 

EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 

TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect  Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


Re lat  i ve_Window 

:  in  X_Windows .Window 

:=  X  Windows. Null  Window 


Panel  origin  is  offset  from 
this  X  Window.   Null_Window 
■-  uses  the  root  window. 


--I  PURPOSE: 
-- I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 

in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 

Info. Panel_Id. 
If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 

In  this  case,  Relative_Window  is  ignored. 

EXCEPTIONS: 
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TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 

not  initialized 
TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 

created 
TAE.Tae_Wpt .BAD_STATE  is  raised  if  the  panel  exists  and  the 

Panel  State  is  an  invalid  state 


Destroy_Panel 


Subprogram  SPEC 


procedure  Destroy_Panel ; 


id. 


PURPOSE: 

This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 

associated  panel  object  (not  the  target  and  view) . 

EXCEPTIONS: 

TAE.Tae_Wpt . BAD_PANEL_ID  is  raised  if  Inf o . Panel_Id  is  an  invalid 


NOTES : 

Info.Panel_Id  is  set  to  TAE .NULL_PANEL_ID,  and  should  not  referenced 
in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


■-  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt .Event_Context_Ptr  );  --  event. 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 


--I  EXCEPTIONS: 

-- I  Application-specific 

end  Panel_cdelwarn; 
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2.   PAN  CDELWARN  B.A 


***  TAE  Plus  Code  Generator  version  V5 . 1 


***  File 

***  Generated 

***  Revised  by 


pan_cde lwarn_b . a 
Aug  12  11:50:32  1992 
Dogan  Ozdemir 


******************************************************************* 


Panel  cdelwarn 


■-  Package  BODY 


******************************************************************* 

with  TAE;  use  TAE; 
with  Text_I0; 
with  Global; 
use  Global, Text_IO; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel_mainmenu; 
with  Panel_select ; 

package  body  Panel_cdelwarn  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event-generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
cdelwarn 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 

An  item's  connection  information  changed 
For  the  panel  items: 

ok,  cancel 
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Initialize_Panel  --  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae  Co . Collection  Ptr  )  is 


begin  --  Initialize_Panel 

Info  :=  new  TAE .Tae_Wpt . Event_Context ; 

Info .Collection  :  =  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Info . Collection,  "cdelwarn_v" ,  Info. View); 

TAE.Tae_Co.Co_Find  ( Info .Collection,  "cdelwarn_t " ,  Info. Target) 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO. Put_Line  ( " Panel_cdelwarn . Initialize_Panel :   " 

&  "Collection_Read  not  initialized."); 
raise; 

when  TAE . Tae_Co . NO_SUCH_MEMBER  => 

Text_IO. Put_Line  ( " Panel_cdelwarn . Initialize_Panel : 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel ; 


Create_Panel  --  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt.Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X  Windows. Null  Window  )  is 
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begin  --  Create_Panel 

if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
TAE . Tae_Wpt . Wpt_NewPanel 

(  Dummy  =>  " " , 

Data_Vm  =>  Info. Target, 

View_Vm  =>  Info. View, 

Relative_Window  =>  Relative_Window, 
User_Context  =  >  Info, 

Flags  =>  Panel_State, 

Panel_Id  =>  Inf o . Panel_Id  ) ; 
else 

Text_IO . Put_Line  ("Panel  (cdelwarn)  is  already  displayed."); 
end  if; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_cdelwarn .Create_Panel : 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE.TAE_FAIL  => 

Text_IO.Put_Line  ( " Panel_cdelwarn .Create_Panel : 

&  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel ; 


Connect_Panel  --  Subprogram  BODY 


procedure  Connect_Panel 

(  Panel_State  , 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X  Windows. Null  Window  )  is 


begin  --  Connect_Panel 

if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

(  Relative_Window       =>  Relative_Window, 
Panel_State  =>  Panel_State  ) ; 
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else 

TAE.Tae_Wpt .Wpt_SetPanelState  ( Info . Panel_Id,  Panel_State) 
end  if; 

exception 

when  TAE.Tae_Wpt .BAD_STATE  => 

Text_IO. Put_Line  ( " Panel_cdelwarn . Connect_Panel : 

&  "Invalid  panel  state."); 
raise ; 

end  Connect_Panel ; 


Destroy_Panel  --  Subprogram  BODY 


procedure  Destroy_Panel  is 

begin  --  Destroy_Panel 

TAE.Tae_Wpt .Wpt_PanelErase ( Inf o. Panel_Id) ; 

exception 

when  TAE.Tae_Wpt . BAD_PANEL_ID  => 

Text_IO . Put_Line  ( " Panel_cdelwarn .Destroy_Panel :   " 

&  " Inf o . Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE . Tae_Wpt . ERASE_NULL_PANEL  => 
--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed, 
--  Trap  this  exception  and  do  nothing, 
null;  i 

end  Destroy_Panel ; 

--  begin  EVENT  HANDLERS 


ok_Event  --  Subprogram  SPEC  &  BODY 


procedure  ok_Event 
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(  Info  :  in  TAE .Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 
L,S    :  Integer :=1; 

begin  --  ok_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info  .  Parm_Ptr ,  1,  Valued)); 
else 

nu  1 1  ; 
end  if; 
--ADDED 

strlen (component , L) ; 
strlen ( library , S) ; 

system_call ( com& " cd  "^library ( 1 . .S) &"  "^component ( 1 . .L) ) ; 
TAE .Tae_Wpt .Wpt_PanelReset ( Panel_mainmenu . Info . Panel_Id) ; 
for  Clean  in  1 . . (num_of_comp)  loop 
for  ch  in  1..80  loop 

file_vec (Clean) .all(ch) :=' 
end  loop; 
end  loop; 


--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 
Panel_mainmenu.Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

end  ok_Event ; 

cancel_Event  --  Subprogram  SPEC  &  BODY 


procedure  cancel_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
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--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf o . Parm_Ptr ,  1,  Value (1)); 
else 

null; 
end  i  f ; 

--  End  default  generated  code 
--  Begin  generated  code  for  Connection 
Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 
Panel_select .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

end  cancel_Event ; 

--  end  EVENT  HANDLERS 


Dispatch_Item  --  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  NOTES:  (none) 

begin  --  Dispatch_Item 

if  TAE.Tae_Misc . s_equal  ("ok",  User_Context_Ptr . Parm_Name)  then 
ok_Event  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Misc.s_equal  ("cancel",  User_Context_Ptr . Parm_Name)  then 
cancel_Event  (User_Context_Ptr ) ; 

end  i  f ; 

end  Dispatch_Item; 
end  Panel_cdelwarn; 
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S.      PANEL  INTEGRATE  PACKAGE 


1.       PAN  INTEGRT  S.A 


***  TAE  Plus  Code  Generator  version  V5 . 1 

***  File        :  pan_integrt_s . a 

***  Generated   :  Sep  13  13:51:07  1992 

***  Revised  by  :  Dogan  Ozdemir 
******************************************************************* 


Panel_integrt 


Package  SPEC 


•  it**********************-*****************************************- 


with  TAE; 

with  X_Windows ; 

package  Panel_integrt  is 


PURPOSE: 

This  package  encapsulates  the  TAE  Plus  panel:   integrt 

These  subprograms  enable  panel  initialization,  creation,  destruction, 

and  event  dispatching.   For  more  advanced  manipulation  of  the  panel 

using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 

It  includes  the  Target  and  View  (available  after  initialization) 

and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
integrt 


Info  :  TAE.Tae_Wpt . Event_Context_Ptr ; 


panel  information 


Initialize  Panel 


■-  Subprogram  SPEC 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  ) ; 


TAE  Collection  read  from 
resource  file 


--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 

--I  panel 
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EXCEPTIONS: 

TAE.UNINITIALIZED_PTR  is  raised  if  Collection_Read  not  initialized 
TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
Collection  Read 


Create  Panel 


--  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


--  Flags  sent  to  Wpt_NewPanel 


Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ); 


Panel  origin  is  offset  from 
this  X  Window.  Null_Window 
-  uses  the  root  window. 


--I  PURPOSE: 

-- I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Info . Panel_Id . 

EXCEPTIONS: 

TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 

TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect  Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ); 


■-  Panel  origin  is  offset  from 
■-  this  X  Window.   Null_Window 
--  uses  the  root  window. 


PURPOSE: 

If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 
Info.Panel_Id. 
If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 
In  this  case,  Relative_Window  is  ignored. 
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EXCEPTIONS: 

TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 

not  initialized 
TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 

created 
TAE.Tae_Wpt .BAD_STATE  is  raised  if  the  panel  exists  and  the 

Panel  State  is  an  invalid  state 


Destroy_Panel 


Subprogram  SPEC 


procedure  Destroy_Panel ; 


id, 


PURPOSE: 

This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 

associated  panel  object  (not  the  target  and  view) . 

EXCEPTIONS : 

TAE.Tae_Wpt .BAD_PANEL_ID  is  raised  if  Inf o . Panel_Id  is  an  invalid 


NOTES : 

--I  Info. Panel_Id  is  set  to  TAE .NULL_PANEL_ID,  and  should  not  referenced 
--I  in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


-  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt .Event_Context_Ptr  ) ;  --  event. 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 


--I  EXCEPTIONS: 

--I  Application-specific 

end  Panel_integrt ; 
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PAN  INTEGRT  B.A 


***    TAE    Plus    Code   Generator    version   V5 . 1 


***    File 

***    Generated 

***    Revised   by 


pan_integrt_b . a 

Oct    22    16:29:54    1992 

Dogan  Ozdemir 


*************•*+********•+*******•*******•******+****************** 

* 

*     Panel_integrt  --  Package  BODY 
* 

**********************  +  ************************************  +  *****■*.* 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Text_IO, Global; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel_select ; 
with  Panel_mainmenu; 

package  body  Panel_integrt  is 

NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event-generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 

file: 

The  panel's  name  is  changed  (not  title) 
For  panel: 
integrt 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 

An  item's  connection  information  changed 
For  the  panel  items: 

cancel,  integrate,        int_quit 
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Initialize_Panel  --  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 


begin  --  Initialize_Panel 

Info  :=  new  TAE . Tae_Wpt . Event_Context ; 

Info .Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Info . Collect  ion,  "integrt_v",  Info. View); 

TAE.Tae_Co.Co_Find  ( Info .Collection,  "integrt_t",  Info. Target) 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( "Panel_integrt . Initialize_Panel :   " 

&  "Collection_Read  not  initialized."); 
raise; 

when  TAE . Tae_Co . NO_SUCH_MEMBER  => 

Text_IO. Put_Line  ( " Panel_integrt . Initialize_Panel :   " 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel ; 


Create_Panel  --  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Re lat  i ve_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 


begin  --  Create_Panel 
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if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
TAE.Tae_Wpt . Wpt_NewPanel 

(  Dummy  =>  " " , 

Data_Vm  =>  Info. Target, 

View_Vm  =>  Info. View, 

Relative_Window  =>  Relative_Window, 

User_Context  =>  Info, 

Flags  =>  Panel_State, 

Panel_Id  =>  Info . Panel_Id  ) ; 
else 

Text_IO . Put_Line  ("Panel  (integrt)  is  already  displayed."); 
end  i  f ; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO. Put_Line  ( " Panel_integrt .Create_Panel : 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise ; 

when  TAE.TAE_FAIL  => 

Text_IO.Put_Line  ( " Panel_integrt .Create_Panel : 

&  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel ; 


Connect_Panel  --  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 


filename 

Q,L,F,P,K 

Dummy 


Stringd.  .80)  :  =  (others  =  >' 

Integer : =1 ; 

Boolean; 


begin  --  Connect_Panel 

if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
Create  Panel 
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(  Relative_Window       =>  Relative_Window, 
Panel_State  =>  Panel_State  ) ; 

else 

TAE.Tae_Wpt .Wpt_SetPanelState  ( Info. Panel_Id,  Panel_State) ; 
end  if; 
--ADDED 

strlen (Query _psdl , Q) ; 
strlen (component , L) ; 
strlen (proto_pref ix, P) ; 
K:=P+1; 

f  ilenamed  .  .K)  :  =proto_pref  ix  ( 1 .  .  P)&"  .  "  ; 
if  Query  then 

--filename (K. . (2+Q) ) :=  Query _psdl (1. . (Q-4) ) ; 
f ilename(K+l. . (K+ (Q-3 ) ) ) : =  Query _psdl ( 1 . . (Q-4 ) ) & "a" ; 
--f ilename (3+Q) :='a' ; 
else 

filename (K+l . . (L+K+2) ) : =  component ( 1 . . L) &" .a" ; 
end  if; 
strlen ( filename, F) ; 

TAE.Tae_Vm.Vm_SetString( Info. View,  "filename" , 1, filename ( 1 .  .F) , TAE.Tae_Vm 
.P_UPDATE) ; 

TAE.Tae_Wpt .Wpt_ViewUpdate (Info. Panel_Id, " filename" , Info. View, "filename" 

); 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
for  clean  in  1..80  loop 
filename (clean)  :  =  '  '  ; 
end  loop; 

exception 

when  TAE.Tae_Wpt .BAD_STATE  => 

Text_IO. Put_Line  ( "Panel_integrt .Connect_Panel : 

&  "Invalid  panel  state."); 
raise; 

i 

end  Connect_Panel ; 


Destroy_Panel  --  Subprogram  BODY 

procedure  Destroy_Panel  is 
begin  --  Destroy_Panel 

TAE.Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 
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exception 

when  TAE.Tae_Wpt.BAD_PANEL_ID  => 

Text_IO . Put_Line  ( " Panel_integrt . Destroy_Panel : 

&  " Info . Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE.Tae_Wpt . ERASE_NULL_PANEL  => 
--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed, 
--  Trap  this  exception  and  do  nothing, 
null; 

end  Destroy_Panel ; 

--  begin  EVENT  HANDLERS 


cancel_Event  --  Subprogram  SPEC  &  BODY 


procedure  cancel_Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.   Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 
Q,L    :  Integer :=1; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then        > 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf o . Parm_Ptr,  1,  Valued)); 
end  if; 
--  End  default  generated  code 

--ADDED 
system_call ( "rm  retrieved_psdl " ) ; 

system_call ( "rm  retrieved_spec" ) ; 

system_call ( "rm  retrieved_body" ) ; 
system_call ( "rm  out file"); 
system_call ( "rm  message" ) ; 

--  Begin  generated  code  for  Connection 
Destroy_Panel ; 

Panel_select .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 
--  End  generated  code  for  Connection 
end  cancel_Event ; 
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integrate_Event  --  Subprogram  SPEC  &  BODY 


procedure  integrate_Event 

(  Info  :  in  TAE.Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER.   Insert  application  specific  information. 

--I 

--I  NOTES : Invokes  the  code  for  integration 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 
Q,X,P,C:  Integer :=1; 

begin  --  integrate_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf  o  .  Parm_Ptr ,  1,  Valued)  ); 
end  if; 

--ADDED 
strlen (proto_pref ix, X) ; 
strlen (path, P) ; 
strlen (component , C) ; 
if  Query  then 

strlen (Query_psdl , Q) ; 

if  proto_pref ix ( 1 . .X) =Query_psdl ( 1 . .X)  then 

system_call  ( "cp  outfile  "kpath  ( 1 .  .  P)  Sc"  /  "&Query_psdl  ( 1 .  .  (Q- 
4) )&"a") ; 
else 

system_call ( "cp  outfile  "kpath (1 . . P) &" / 
"&proto_pref ix(l. .X)&" . "&Query_psdl (1 . . (Q-4) )&"a" ) ; 
end  if; 

system_call ( "cp  retrieved_spec  "&path ( 1 . . P) &" / 
"&proto_pref  ix(  1 .  . X)  &"  .  "Sccomponent  ( 1 .  . C)  &"_spec  .a"  )  ; 

system_call ( "cp  retrieved_body  "&path ( 1 . . P) &" / 
"&proto_pref ix(l. .X) &" . "&component (1 . .C) &"_body .a" ) ; 

else 

system_call ("cp  outfile  "&path( 1 . . P) &" / 
"&proto_prefix(l.  .X)&"  .  "Sccomponent  ( 1 .  .C)  &"  .  a" )  ; 

system_call ( "cp  retrieved_spec  "&path ( 1 . . P) &" / 
"&proto_prefix(l. .X)&" . "^component (1. .C) &"_spec .a" ) ; 

system_call ( "cp  retrieved_body  "&path( 1 . . P) &" / 
"&proto_prefix(l.  .X)&"  .  "Sccomponent  (1.  .C)  &"_body-.a" )  ; 
end  if; 
Query : =False ; 


327 


for  erase  in  1..80  loop 
Query _psdl (erase) := '  ' ; 
end  loop; 
system_call ( "rm  outfile"); 
system_call ( "rm  message"); 
system_call ( "rm  retrieved_psdl " ) ; 
system_call ( "rm  retrieved_spec" ) ; 
system_call ( "rm  retrieved_body " ) ; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Destroy_Panel ; 

Panel_mainmenu.Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

end  integrate_Event ; 


int_quit_Event  --  Subprogram  SPEC  &  BODY 


procedure  int_quit_Event 

(  Info  :  in  TAE.Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER.   Insert  application  specific  information. 

--I 

--I  NOTES:  Invokes  the  code  for  integration  and  terminates  the  program. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGS I ZE) ; 
Count  :  TAE.Taeint; 
Q,X,P,C:  Integer :=1; 

begin  --  int_quit_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf o . Parm_Ptr,  1,  Valued)); 
end  if; 

--ADDED 
strlen (proto_pref ix,X) ; 
strlen (path, P) ; 
strlen (component , C) ; 
if  Query  then 

strlen (Query _psdl, Q) ; 

system_call ( "cp  outfile  "&path ( 1 . . P) &" / 
"&proto_prefix(l. .X)&" . "&Query_psdl (1 . . (Q-4) )&"a") ; 

system_call ( "cp  retrieved_spec  "&path ( 1 . . P) &" / 
"&proto_pref ix (1 . . X) &" . "&component (1 . . C) &"_spec .a" ) ; 
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system_call ( "cp  retrieved_body  "&path ( 1 . . P) &" / 
"&proto_pref ix ( 1 . .X) &" . "^component ( 1 . . C) &"_body .a" ) ; 

--system_call ( " rm  " &Query_psdl ( 1 . . Q) )  ; 
else 

system_call ( "cp  outfile  "&path ( 1 . . P) & " / 
"&proto_pref ix ( 1 . .X) &" . "^component ( 1 . . C) &" .a" ) ; 

system_call ( "cp  retrieved_spec  "&path( 1 . . P) &" / 
"&:proto_pref  ix  ( 1  .  .  X)  &"  .  "^component  ( 1  .  .  C)  &"_spec  .a"  )  ; 

system_call ( "cp  retrieved_body  "&path ( 1 . . P) &" / 
"&proto_pref  ix  ( 1 .  .X)  &"  .  "&component  (1 .  .C)  £c"_body  .a"  )  ; 
end  i  f ; 


system_call ( "rm  outfile"); 
system_call ( " rm  message"); 
system_call ( " rm  retrieved_psdl " ) 
system_call ( "rm  retrieved_spec" ) 
system_call ( "rm  retrieved_body " ) 
Global . Set_Application_Done ; 


end  int_quit_Event ; 
--  end  EVENT  HANDLERS 


Dispatch_Item 


--  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE .Tae_Wpt . Event_Context_Ptr  )  is 


--I  NOTES:  (none) 

begin  --  Dispatch_Item 

if  TAE .Tae_Misc . s_equal  ("cancel",  User_Context_Ptr . Parm_Name)  then 

cancel_Event  (User_Context_Ptr ) ; 
els  if  TAE.Tae_Misc . s_equal  ("integrate",  User_Context_Ptr . Parm_Name) 


then 


then 


integrate_Event  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Misc . s_equal  ("int_quit",  User_Context_Ptr . Parm_Name ) 

int_quit_Event  (User_Context_Ptr) ; 
end  if; 


end  Dispatch_Item; 
end  Panel_integrt ; 
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T.      SOFTBASE  SUPPORT  PACKAGE 


1.   SOFTBASE  SUPPORT  S.A 


TAE  Plus  Code  Generator  version  V5 . 1 


***  File 

***  Generated 

***  Revised  by 


sof tbase_support_s .a 
May  21  16:12:31  1992 
Dogan  Ozdemir 


sof tbase_Support 


--  Package  SPEC 


it**************************************-**-*************************-* 


with  TAE; 


package  sof tbase_Support  is 


PURPOSE: 

This  package  encapsulates  the  operations  specific  to  a  resource  file. 
These  subprograms  enable  initialization  of  all  panels,  displaying 
all  initial  panels,  and  event  dispatching. 

REGENERATED : 

This  file  is  generated  only  once. 


Initialize  All  Panels 


Subprogram  SPEC 


procedure  Initialize_All_Panels 
(  Resource_File 

:  in  String  ) ; 


--  Name  of  resource  file 


-I  PURPOSE: 

-I  This  procedure  initializes  all  the  panels  in  the  resource  file. 

-I 

-  I  EXCEPTIONS : 

-I  TAE.TAE_FAIL  is  raised  when  the  resource  file  could  not  be  read 

I  TAE .  Tae_Co .  NO_SUCH_MEMBER  is  raised  when  one  of  the  panels  was  not  in 

I  the  resource  file.  This  could  happen  if  a  panel  was  deleted  from 

-I  the  resource  file  (using  the  WorkBench)  after  the  code  was 

- 1  generated. 

-I 

-  I  NOTES : 

I  This  procedure  reads  in  the  resource  file  and  initializes  each  panel. 

-I  It  only  needs  to  be  called  once. 
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Create_Initial_Panels  --  Subprogram  SPEC 


procedure  Create_Initial_Panels ; 

--I  PURPOSE: 

-- I  This  procedure  displays  the  set  of  initial  panels. 


Dispatch_Panel  --  Subprogram  SPEC 


procedure  Dispatch_Panel 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt . Event_Context_Ptr ;  --  event. 

Panel_In_Resource_File  --  True,  if  the  PARM  event 

:  out  Boolean  ) ;  --  occurred  in  one  of  the  panels 

--  of  this  resource  file. 
--  False,  otherwise. 
--I  PURPOSE: 

--I  This  procedure  dispatches  a  WPT_PARM_EVENT  to  the  appropriate 
panel ' s 

--I  Dispatch_Item  routine. 

--I 

--I  EXCEPTIONS: 

--I  Application-specific 

end  sof tbase_Support ; 


2.   SOFTBASE  SUPPORT  B.A 


*  *  * 


TAE  Plus  Code  Generator  version  V5 . 1 
File 


***  Generated 
***  Revised  by 


sof tbase_support_b . a 
Sep  14  09:04:39  1992 
Dogan  Ozdemir 


***********•*****************+*********+************++*************•* 

* 

*     sof tbase_Support  --  Package  BODY 


******************•*************+******+********+***•*****•********** 
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with  TAE; 
with  Text_IO; 

--  one  "with"  for  each  panel  in  the  resource  file 

with  Panel_library ; 

with  Panel_lbselect ; 

with  Panel_libadd; 

with  Panel_lbdelete ; 

with  Panel_ldelwarn; 

with  Panel_mainmenu; 

with  Panel_addf ile; 

with  Panel_compsel ; 

with  Panel_keyword; 

with  Panel_query ; 

with  Panel_viewpsdl ; 

with  Panel_viewspec; 

with  Panel_viewbody ; 

with  Panel_select ; 

with  Panel_cdelwarn; 

with  Panel_savecomp; 

with  Panel_integrt ; 

package  body  sof tbase_Support  is 


REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 

file: 

A  panel  is  deleted 
A  new  panel  is  added 

A  panel's  name  is  changed  (not  title) 
For  the  panels: 
library,   lbselect,  libadd,   lbdelete,  ldelwarn,  mainmenu,  addfile, 
compsel,   keyword,   query,    viewpsdl,  viewspec,  viewbody,  select, 
cdelwarn,  savecomp,  integrt 


Create  Initial  Panels 


Subprogram  STUB 


procedure  Create_Initial_Panels  is  separate; 


Initialize  All  Panels 


--  Subprogram  BODY 


procedure  Initialize_All_Panels 
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(  Resource_File 

:  in   String  )  is 

Vm_Collection_Read   :  TAE . Tae_Co . Collect ion_Ptr ; 

begin  --  Initialize_All_Panels 

--  do  one  Co_New  and  Co_ReadFile  per  resource  file 
TAE . Tae_Co . Co_New 
(  Flags  =>  0, 

Coid   =>  Vm_Collection_Read  ) ; 
--  could  pass  P_Abort  if  you  prefer 
TAE . Tae_Co . Co_ReadFi le 

(  Coid  =>  Vm_Collection_Read, 
Spec  =>  Resource_File, 
Mode  =>  TAE.P_CONT  ) ; 

Panel_library . Initialize_Panel  (Vm_Collection_Read) ; 
Panel_lbselect . Initialize_Panel  (Vm_Collection_Read) 
Panel_libadd. Initialize_Panel  (Vm_Collection_Read) ; 
Panel_lbdelete . Initialize_Panel  (Vm_Collection_Read) 
Panel_ldelwarn . Initialize_Panel  (Vm_Collection_Read) 
Panel_mainmenu . Initialize_Panel  (Vm_Collection_Read) 
Panel_addf ile . Initialize_Panel  (Vm_Collection_Read) ; 
Panel_compsel . Initialize_Panel  (Vm_Collection_Read) ; 
Panel_keyword. Initial ize_Panel  (Vm_Collection_Read) ; 
Panel_query . Initialize_Panel  (Vra_Collection_Read) ; 
Panel_viewpsdl . Initialize_Panel  (Vm_Collection_Read) 
Panel_viewspec . Initialize_Panel  (Vm_Collection_Read) 
Panel_viewbody . Initialize_Panel  (Vm_Collection_Read) 
Panel_select . Initialize_Panel  (Vm_Collection_Read) ; 
Panel_cdelwarn . Initialize_Panel  (Vm_Collection_Read) ; 
Panel_savecomp . Initialize_Panel  (Vm_Collection_Read) ; 
Panel_integrt . Initialize_Panel  (Vm_Collection_Read) ; 

exception 

when  TAE.TAE_FAIL  => 

Text_IO.  Put_Line  ( "resfiile_Support .  Initialize_All_Panels  : 
Text_IO.Put_Line  (Resource_File 

&  "  doesn't  exist  or  is  incorrectly  formatted."); 
raise; 

when  TAE.Tae_Co.NO_SUCH_MEMBER  => 

--  raised  from  one  of  the  panel's  Initialize_Panel 
raise; 

end  Initialize_All_Panels ; 


Dispatch_Panel  --  Subprogram  BODY 
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procedure  Dispatch_Panel 
(  User_Context_Ptr 

:  in   TAE.Tae_Wpt . Event_Context_Ptr ; 

Panel_In_Resource_File 
:  out  Boolean  )  is 

begin  --  Dispatch_Parm_Event 

Panel_In_Resource_File  :=  TRUE; 

if  TAE.Tae_Wpt . "="  (User_Context_Ptr ,  Panel_library . Info)  then 

Panel_library .Dispatch_Item  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Wpt . "="  (User_Context_Ptr ,  Panel_lbselect . Inf o)  then 

Panel_lbselect . Dispatch_Item  (User_Context_Ptr ) ; 
elsif  TAE . Tae_Wpt . " = "  (User_Context_Ptr ,  Panel_libadd. Info)  then 

Panel_libadd. Dispatch_Item  (User_Context_Ptr) ; 
elsif  TAE.Tae_Wpt . "="  (User_Context_Ptr ,  Panel_lbdelete . Info)  then 

Panel_lbdelete .Dispatch_Item  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Wpt . "="  (User_Context_Ptr ,  Panel_ldelwarn . Inf o)  then 

Panel_ldelwarn .Dispatch_Item  (User_Context_Ptr ) ; 
elsif  TAE . Tae_Wpt . " = "  (User_Context_Ptr ,  Panel_mainmenu . Info)  then 

Panel_mainmenu .Dispatch_Item  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Wpt . "="  (User_Context_Ptr ,  Panel_addf ile . Inf o)  then 

Panel_addf ile . Dispatch_Item  (User_Context_Ptr ) ; 
elsif  TAE . Tae_Wpt . " = "  (User_Context_Ptr ,  Panel_compsel . Inf o)  then 

Panel_compsel . Dispatch_Item  (User_Context_Ptr ) ; 
elsif  TAE . Tae_Wpt . " = "  (User_Context_Ptr ,  Panel_keyword . Info)  then 

Panel_keyword.Dispatch_Item  (User_Context_Ptr ) ; 
elsif  TAE . Tae_Wpt . " = "  (User_Context_Ptr ,  Panel_query . Info)  then 

Panel_query .Dispatch_Item  (User_Context_Ptr) ; 
elsif  TAE . Tae_Wpt . " = "  (User_Context_Ptr ,  Panel_viewpsdl . Info)  then 

Panel_viewpsdl .Dispatch_Item  (User_Context_Ptr ) ; 
elsif  TAE . Tae_Wpt . " = "  (User_Context_Ptr ,  Panel_viewspec . Inf o)  then 

Panel_viewspec .Dispatch_Item  (User_Context_Ptr ) ; 
elsif  TAE . Tae_Wpt . " = "  (User_Context_Ptr ,  Panel_viewbody . Info)  then 

Panel_viewbody . Dispatch_Item  (User_Context_Ptr) ; 
elsif  TAE . Tae_Wpt . " = "  (User_Context_Ptr ,  Panel_select . Info)  then 

Panel_select .Dispatch_Item  (User_Context_Ptr) ; 
elsif  TAE . Tae_Wpt . " = "  (User_Context_Ptr ,  Panel_cdelwarn . Info)  then 

Panel_cdelwarn .Dispatch_Item  (User_Context_Ptr ) ; 
elsif  TAE . Tae_Wpt . " = "  (User_Context_Ptr ,  Panel_savecomp . Inf o)  then 

Panel_savecomp .Dispatch_Item  (User_Context_Ptr) ; 
elsif  TAE . Tae_Wpt . ■ = "  (User_Context_Ptr ,  Panel_integrt . Info)  then 

Panel_integrt .Dispatch_Item  (User_Context_Ptr ) ; 
else 

Panel_In_Resource_File  :=  FALSE; 
end  if; 
end  Dispatch_Panel ; 

end  sof tbase_Support ; 

334 


U.  SOFTBASE  CREAT  INIT.A 


__  ***  tt^t  plus  Code  Generator  version  V5 . 1 

softbase creat_init .a 

Aug  12  16:02:32  1992 
Dogan  Ozdemir 


***  File 

***  Generated 
*  *  * 


Revised  by 


Create  InitialPanels 


■-  Subprogram  SUBUNIT 


separate  ( sof tbase_Support ) 
procedure  Create_Initial_Panels  is 


NOTES : 

This  subprogram  is  not  in  the  same  file  as  sof tbase_Support .a 

for  code  regeneration  purposes.   Therefore  it  is  a  subunit . 

Also  note,  that  the  parent  unit  "with"ed  in  all  of  the  panel  packages 

for  the  entire  resource  file,  so  this  unit  doesn't  need  to  "with"  in 

any  of  the  panel  packages. 

This  procedure  should  be  called  after  the  panels  in  the  initial  panel 
set  have  been  initialized. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 

file: 

A  panel  is  added  to  the  initial  panel  set 
A  panel  is  deleted  from  the  initial  panel  set 
For  the  set  of  initial  panels: 

library,   lbdelete,  lbselect,  addfile,   query,    keyword,   compsel, 
savecomp 


begin  --  Create_Initial_Panels 

Panel_library .Create_Panel ; 
Panel_lbdelete .Create_Panel ; 
Panel_lbselect .Create_Panel ; 
Panel_addf ile . Create_Panel ; 
Panel_query .Create_Panel ; 
Pane l_keyword . Creat e_Panel ; 
Panel_compsel . Create_Panel ; 
Panel_savecomp .Create_Panel ; 

end  Create_Initial_Panels ; 
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